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Summary 

The High Resolution Accelerometer Package 
(HiRAP) instrument is a triaxial, orthogonal system 
of gas-damped accelerometers with a resolution of 
1 x 10 _6 2 (1 fjg). The purpose of HiRAP is to mea- 
sure the low-frequency component of the total accel- 
eration along the orbiter vehicle (OV) body axes to a 
resolution of 1 yg while the OV descends through the 
rarefied-flow flight regime. Two HiRAP instruments 
have flown on a total of 10 Space Transportation Sys- 
tem (STS) missions. The aerodynamic component of 
the acceleration measurements was separated from 
the total acceleration by a data processing system 
that included removing OV rotationaliy induced lin- 
ear accelerations, reaction control system impulses, 
effects of orbiter mechanical systems, and instrument 
bias. Instrument bias and orbiter mechanical system 
acceleration effects were incorporated into one bulk 
bias. The rate of change of instrument bias with in- 
creasing temperature was evaluated. Both the bulk 
bias and the trend of increasing bias with tempera- 
ture were subtracted from the acceleration measure- 
ments to produce aerodynamic descent data sets for 
all 10 flights. This document describes the detailed 
methods of converting the raw data set into the triax- 
ial reentry aerodynamic acceleration data set. This 
includes algorithms, discussions of the processes, and 
plots of the data set. The aerodynamic acceleration 
data sets were input to an aerodynamic coefficient 
model. The components of the coefficient model are 
described in the form of both algorithms and perfor- 
mance envelope plots. The aerodynamic acceleration 
data and coefficient model are used to estimate the 
atmospheric density for the altitude range of 140 to 
60 km and a downrange distance of about 600 km. 
A density ratio model is developed and presented to 
verify the analysis techniques. For 8 of 10 flights 
results from this model agree with expected results. 
For the results that do not agree with expected re- 
sults, instrument malfunction and misalignment, in- 
accuracies in the processing of the data, and aero- 
dynamic model assumption have been explored as 
possible sources of errors. 

Introduction 

The primary aim of the High Resolution Ac- 
celerometer Package (HiRAP) experiment is to mea- 
sure the aerodynamic accelerations along the body 
axes of the orbiter vehicle (OV) while the orbiter de- 
scends through the rarefied-flow flight regime. These 
measurements are used to determine the aerody- 
namic performance coefficients of the OV in an atmo- 
spheric region that cannot be duplicated in ground- 
based research. 


This report documents the analysis of in-situ 
aerodynamic acceleration flight measurements from 
the first 10 HiRAP missions. This research project 
is part of the NASA Orbiter Experimental (OEX) 
Program. 

The purpose of this report is to present the 10 
aerodynamic acceleration data sets of the HiRAP 
flight experiment, document the procedure used to 
produce the reentry aerodynamic accelerations from 
the HiRAP measurements, and summarize the aero- 
dynamic flight results. Included is a description of 
the aerodynamic performance model used to com- 
pare with the HiRAP measurements in view of an- 
ticipated atmospheric density results. This report is 
intended to serve as a reference document for anal- 
ysis of future HiRAP and other acceleration experi- 
ment flights and therefore includes source code list- 
ings, data file names, and constants used in these 
codes. 


Symbols and Abbreviations 



X-, Y-* and Z-body-axis 
components of acceleration 

C a 

axial-force coefficient 

C a 

normalized axial- force 
coefficient 

C„ 

normal-force coefficient 

C n 

normalized normal-force 
coefficient 

d 

orbiter mean chord length, m 

9 

Earth acceleration of gravity, 
9.8 m/sec 2 

L/D 

lift-drag force ratio 

l 

molecular mean free path 
constant, m 

M 

orbiter mass, kg 

mw 76 

molecular weight estimate 
from 1976 U.S. Standard 
Atmosphere (ref. 1) 

N K n 

Knudscn number 

P , 9 , r 

orbiter pitch, yaw, and roll 
rates, deg/sec 

P, 9, r 

orbiter pitch, yaw, and roll 
rates of change, deg/sec 2 

S 

orbiter reference area, 
249.91 m 2 


V 

orbiter velocity, m/sec 

V T 

voltage 

x , F, z 

distance of HiRAP accelerom- 
eters from orbiter center of 
gravity, m 

pg 

= 1 x 10 -6 <? 

A 

incremental change 

e 

misalignment angle, deg 

p 

atmospheric density, kg/m 3 

Subscripts: 


c 

corrected measurement 

i 

index 

m 

measured 

model 

model value 

Abbreviations: 


ABET 

Aerodynamic Best Estimate 
Trajectory 

ACIP 

Aerodynamic Coefficient 
Identification Package 

APU 

auxiliary power unit 

GMT 

Greenwich mean time 

IMU 

inertial measurement unit 

OADB 

Orbiter Aerodynamic Data 
Book 

OEX 

Orbiter Experimental 

OV 

orbiter vehicle 

PCM 

pulse code modulation 

RCS 

reaction control system 

STS 

Space Transportation System 

TIF 

time interface file 

XBET 

Extended Best Estimate 
Trajectory 


Background 

The HiRAP accelerometer package was designed 
to measure high-altitude aerodynamic acceleration 
on the Space Shuttle orbiter vehicle (OV) during 
atmospheric reentry. The general approach is to use 
the HiRAP experiment to measure the accelerations 
on the OV during the unpowered gliding reentry and 
descent to estimate the aerodynamic performance 
coefficients. 


The HiRAP instrument uses a set of three orthog- 
onal, pendulous, gas-damped accelerometers, each 
with a resolution of 1 fjg and a measurement range 
of approximately ±8000 (jg. The instrument weighs 
1.13 kg and its size is 8.89 x 12.70 x 10.16 cm. The 
HiRAP instrument is mounted in the wing box on 
the cargo bay, such that the orthogonal HiRAP axes 
are aligned with the OV body axes. A diagram of 
the HiRAP and its location in the OV are shown in 
figure 1. In this document, the axes used are oriented 
as shown in figure 1. 

During the descent period of each mission, data 
acquisition begins just prior to the deorbit burn, 
when the orbiter is at an altitude between 250 to 
300 km. Data are obtained until the X- and Z-axis 
channels become and remain saturated at approx- 
imately 95 to 100 km and 80 to 85 km, respec- 
tively. HiRAP, therefore, has a limited lower altitude 
range. The V-axis channel saturates intermittently 
as a function of aerodynamic maneuvers. The shut- 
tle inertial measurement unit (IMU) instrument is 
also a set of triaxial orthogonal accelerometers whose 
axes are aligned with the OV body axes and is used 
for shuttle guidance and control. The IMU measure- 
ments of acceleration have a resolution in the range 
of 1000 fjg and are used in this analysis when the 
HiRAP sensors saturate. 

To date, the OEX HiRAP project has flown 
two instrument packages, S/N 001 and S/N 002, 
on two orbiter vehicles, OV-099 ( Challenger) and 
OV-102 (Columbia). Table 1 lists the 10 STS mis- 
sions on which the HiRAP instruments have flown 
and the instrument serial numbers, entry dates, and 
cross-referencing data file numbers and STS mission 
numbers to allow correlation between this report, 
prior HiRAP publications, and Johnson Space Cen- 
ter (JSC) publications. HiRAP instrument S/N 002 
was lost with Challenger , OV-099, on flight STS-51L 
and therefore is not available for additional flights. 
Figure 2 shows the descent trajectories at altitudes 
from 160 to 60 km and the dates of each of the HiRAP 
missions. 

Numerous HiRAP measurements have been made 
and analyses have been completed and documented 
(refs. 2 to 8). The generalized analysis procedure 
outlined in this document relies on many of the 
conclusions of these more specific analyses. 

Accelerometer Measurements 

The HiRAP flight acceleration measurements are 
recorded on OEX flight tapes at a rate of 174 Hz 
for all flights except STS-61C, which is recorded at 
112 Hz. The signal of each accelerometer sensor 
channel is an analog voltage in the range of ±10 V. 
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The accelerometer voltages for each channel are dig- 
itized and recorded as a function of time in a pulse 
code modulated (PCM) data stream of 14-bit analog 
binary data words. 

The PCM format is used for all data collected 
from all OEX experiments. The format can be de- 
scribed as a two-dimensional array of 8-bit words 
that form one data cycle. (The PCM format is de- 
scribed in a document entitled “ACIP-PCM Data 
Format Control Document,” revision C of specifi- 
cation 2359217 produced by the Aerospace Systems 
Division of Bendix Corp., Ann Arbor, Michigan, 
May 12, 1981.) This data cycle is comprised of the 
encoded data from all OEX experiments on the data 
bus. The HiRAP data are subcommutated within 
this array. 

The source code HRPSTRP is used to read the 
OEX flight tapes. Appendix A contains flight data 
tape volume serial number (VSN) identifiers and file 
names. The HRPSTRP code writes a time interface 
file (TIF) science data file containing HiRAP acceler- 
ation data. (A description of the TIF format is given 
in appendix A of an internal Langley Research Center 
document by Karen D. Brender entitled a STS Post- 
flight Output Files,” which was produced in February 
1982.) In the TIF format, the header contains the se- 
rial number of the file, the number of the data chan- 
nels, the data label and units of each data channel, 
and an 80-character title. Each subsequent record 
contains the HiRAP flight data in the same order as 
described by the data label and units in the header. 

The times of the science measurements on the 
flight tapes may be skewed, that is, show time re- 
versals or duplications or be unsynchronized with 
other simultaneously sampled data sets, as a result 
of anomalies in initial recording quality and merging 
of the various instrument data time lines. The source 
code SCIREAD is used to read science data files, re- 
move these time errors, and write correct science data 
files. These science data files are labeled SCIXXY, 
where XX refers to data file number (table 1) and 
Y refers to the segment of the flight. For exam- 
ple, file SCI326 holds science data from segment 6 
of the HiRAP measurement data set for flight STS- 
61C. This labeling convention is used on all data files 
and source codes of this analysis. The science files 
that are output from SCIREAD are also formatted in 
TIF. These files begin with a header followed by four- 
channel science data records of time, X-axis counts, 
Z-axis counts, and Y-axis counts. 

Although the HiRAP data sets begin at approxi- 
mately the deorbit burn for each flight, the focus of 
this analysis is on HiRAP measurements during the 


reentry and descent portions of the orbiter trajec- 
tory. Therefore, the HiRAP measurements used in 
this analysis begin approximately 2000 sec after the 
deorbit burn, when any atmospheric effects are first 
measured, and continue through sensor saturation. 
The saturation times are tabulated in appendix B. 
The HiRAP sensor accelerometer count and temper- 
ature data are shown for the X-, Y-, and Z-axes in 
figures 3 to 12 for all 10 flights. In these and sub- 
sequent plots the time histories extend to approx- 
imately 200 sec after saturation of the X-channel. 
These plots are used to verify that the data are con- 
tinuous and exhibit expected characteristics. 

Instrument Sensor Temperature Data 

HiRAP sensor temperature data are time-tagged 
records of the temperature of each accelerometer dur- 
ing flight. The sensor temperature directly affects the 
acceleration measurement. These temperature data 
are used in the determination of the accelerometer 
bias. A synopsis of the temperature conversion algo- 
rithms is that a rough measurement of sensor tem- 
perature is first determined from the coarse tempera- 
ture count. The temperature is then further resolved 
within 0.06°F using one of the eight ranges of the fine 
temperature count measurement. 

Temperatures are measured at each of the ac- 
celerometer sensors by a thermistor. The output 
from the thermistor is a ±5-V signal that is digi- 
tized by an 8-bit analog-to-digital converter (ADC) 
placed in the PCM data stream. Two temperature 
ranges are monitored for each accelerometer sensor, 
fine and coarse. 

Coarse and fine temperature count data are mea- 
sured along with ±5-V power supply voltage as a 
function of time. The temperature count data rate 
is 2.7 Hz for all flights except STS-61C, which is 
recorded at a rate of 1.6 Hz. These temperature 
and voltage measurements are referred to as house- 
keeping data. 

As with the acceleration data, the time tags of 
the housekeeping measurements on the flight tapes 
may also exhibit dropouts or reversals. The source 
code HSKPRED is used to read the housekeeping 
data stripped from the flight tapes, remove any time 
errors, and write housekeeping data files HSKPXXY. 
(See appendix A for housekeeping data file names.) 
These housekeeping files are TIF formatted. Each 
data record consists of a nine-channel record of time, 
fine and coarse temperature counts for each of the 
three axes, and measurement of positive and negative 
power supply voltages. 
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The source code TCALIB is used to read house- 
keeping data files HSKPXXY, convert the coarse and 
fine temperature counts to degrees Fahrenheit, and 
write the temperature files TCVXXY. Appendix C 
gives the algorithms used to convert the temperature 
counts to voltages and degrees Fahrenheit. 

The temperature of the HiRAP instrument in- 
creases with time during orbit and for the early por- 
tion of descent prior to convective cooling. The in- 
crease in temperature is generally linear with time. 
When the orbiter has descended to the altitude 
where cooling by atmospheric venting is effective, 
the HiRAP temperature stabilizes and then decreases 
with time until touchdown. Part d of figures 3 to 12 
shows plots of temperature versus time for each flight 
and axis for the concurrent times of the HiRAP ac- 
celeration measurements. The temperature histories 
shown extend only to the time at which temperature 
first begins to decrease because of convective cooling. 

For all flights except STS-09, the temperature 
histories show an expected continous linear increase 
with time. For flight STS-09, figure 6(d) shows an in- 
terruption in temperature on the Y-axis sensor tem- 
perature profile between 83 000 and 83 100 sec GMT. 
Figure 6(e) presents the triaxial temperature pro- 
files for flight STS-09 for an earlier time phase that 
shows that an interruption in temperature occurs on 
all three axes. 

There is no known orbiter event or instrument 
response that could explain the instantaneous rise 
in temperature these plots for flight STS-09 display. 
Therefore, the possibility of errors in processing the 
temperature count data was investigated. 

An examination of the fine and coarse tempera- 
ture counts (figs. 6(f) and 6(g)) show's that no discon- 
tinuity exists in the coarse temperature count profile. 
The discontinuity in temperature for flight STS-09 
is traced to an improper ranging between fine tem- 
perature count ranges. This improper ranging does 
not appear to affect the current calibration of any 
of the axes of the HiRAP data set because the cali- 
bration does not incorporate the discontinuity. The 
exploration and correction of this problem have been 
relegated to a future investigation. 

Trajectory and Orientation Data 

To identify the various effects on the aerody- 
namic acceleration data sets, acceleration measure- 
ments must be correlated with vehicle trajectory and 
orientation data. The vehicle trajectory and orien- 
tation data include orbiter altitude, angle of attack, 
body flap deflection, elevon deflection, velocity, and 
ground track. These trajectory data arc compiled 


along with the orbiter control surface data and are 
written to TIF-for matted files. 

Higher altitude trajectory data are recorded on 
files labeled XBETXX, for Extended Best Esti- 
mate Trajectory. Lower altitude trajectory data are 
recorded on files labeled ABETXX, for Aerodynamic 
Best Estimate Trajectory. These two data sets over- 
lap to some extent. However, the ABET and XBET 
are determined independently, which for some flights 
leads to an altitude discontinuity between the tw'o 
data sets. The differences for each flight are ac- 
counted for in the present analysis. 

Altitude and time histories of the angle of attack, 
body flap angle, and elevon angle are shown on 
figures 13 to 22 for the altitude regions corresponding 
to the descent portion of the 10 HiRAP mission 
trajectories. These figures are used to locate times 
of orbiter attitude maneuvers, which may correlate 
with signal changes in the accelcrometry data sets. 
Appendix B lists the GMT times and altitudes of 
the first point in the ABET and XBET trajectory 
data sets for each of the 10 orbiter flights analyzed 
herein. 

Data Reduction Procedures 

The systems aboard the orbiter vehicle used in the 
orientation and control of the vehicle during descent 
produce accelerations on the vehicle. The HiRAP in- 
strument measures these accelerations. The HiRAP 
instrument measurements also show a bias related 
to instrument temperature. The following sections 
describe the procedures to reduce the HiRAP mea- 
surements of the orbiter total acceleration along 
each axis, including the temperature biases, to pro- 
duce the aerodynamic components of the orbiter 
acceleration. 

Reentry Time-Line Events 

An initial step in the reduction procedures is to 
check the acceleration measurements for expected 
characteristic signals resulting from routine events 
in the orbiter reentry time line. Possible anomalies 
in the acceleration histories can be identified by a 
quick look at the raw accelerometer counts with 
time (figs. 3 to 12). In addition, instrument power 
supply voltages and temperature profiles are checked 
to determine the instrument status. 

A listing of time-line events follows. Figure 23 
shows A"-, Y-, and Z-axis acceleration histories for 
flight STS-61C, with each of these time-line events 
and their characteristic signals labeled. It is impor- 
tant to note that these characteristic signals are de- 
scribed in units of fjg (1 x 10 -6 #) in order to provide a 
quick analogy to the physics of the events producing 
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the acceleration signals. The procedure of converting 
the raw measurements from counts to units of gg is 
described in a subsequent section. 

Each acceleration history is checked for 10 time- 
line events as follows: 

1. Thermal stabilization after power is supplied 
to the instrument. The HiRAP sensor requires about 
30 minutes after power up before its electronic el- 
ements become thermally stabilized (temperature 
rise with time is linear). Once the instrument is 
thermally stabilized, each HiRAP sensor indicates 
a nonzero signal that is a temperature-related bias. 
The temperature bias value is unique for each sen- 
sor and each flight and varies in absolute magnitude 
from approximately 10 to 2500 fief. Figure 23 shows 
the temperature bias after power up for flight STS- 
61 C to be approximately —1850, 760, and —1740 fig 
for the X-, and Z-axis, respectively. Figure 23 
also shows the constant slope of the average acceler- 
ation signal over time (until onset of drag arid lift,, 
which is discussed later). This slope is a measure of 
the increase of temperature bias due to the increase 
of temperature over time. 

2. Electronic HiRAP system self check. This ap- 
pears as a series of symmetric positive and negative 
impulses following application of power to the instru- 
ment. These positive and negative impulses are the 
responses to a predetermined electronic stimulus and 
are not a measure of acceleration. The self check sig- 
nal is visible on all three axes during the same time 
interval. 

3. Ignition of the first auxiliary power unit 
(APU). This appears only on the Z-axis as a pos- 
itive shift of, on average, about 10 fig. Following the 
initial jump in acceleration due to the ignition of the 
first APU, the signal appears as a 1-Hz sine wave 
with a magnitude of approximately 100 fig. 

4. Deorbit burn. This signal appears as a gap 
in acceleration on the X- and Z-axes (saturating 
these two channels) for the duration of the deorbit 
burn. On the T-axis, the deorbit burn signal appears 
as a roughly symmetrical but noisy change in the 1 
acceleration signal of approximately ±200 fig . The 
deorbit burn lasts between 160 and 290 sec. For 
flight STS-61C it is about 232 sec. On all axes these 
signals appear between the first APU ignition and 
the reentry pitch maneuver. 

5. Pitch maneuver to set the OV reentry atti- 
tude. This maneuver results in a step-function- 
shaped change in acceleration of about 30 /fy on the 
X-axis and -30 fig on the Z-axis. This signal docs 


not appear on the V -axis. The pitch maneuver oc- 
curs about 60 sec after the deorbit, burn. 

6. Dumping of fuel from the forward RCS pod. 
This fuel dump results in a step-function-shaped 
shift of approximately —600 fig on the A -axis and of 
approximately 100 on the Z-axis. The fuel dump 
docs not impact the T-axis and dot's not occur on 
every flight. 

7. Ignition of the second and third APU s. This 
event results in approximately a 50 -fig shift on the 
Z-axis only. During their operation, the APU's add 
a noisy low-frequency signal to the HiRAP measure- 
ments, with a magnitude ranging between ±300 gg. 

8. Onset of atmospheric axial-, normal- and side- 
force components. As the orbiter descends, atmo- 
spheric axial and normal forces produce a steadily 
increasing magnitude of acceleration measured on 
the X- and the Z-axis. respectively. On the T-axis, 
the large variation in signal magnitude and sign re- 
sults from a combination of side force and cross-range 
steering (±5000 fig). 

9. Instrument saturation. When the accelera- 
tions exceed — 8000 fig the X- and Z-axis channels 
become saturated. The Z-axis channel saturates at 
an altitude between 110 and 95 km. The A -axis 
channel saturates at between 95 and 80 km. Below 
these altitudes the X- and Z-axis channels remain 
saturated except for an occasional saw tooth-shaped 
signal resulting from a large control surface change. 
The T-axis sensor signal ranges between ±8000 fig 
during reentry but does not saturate for extended 
periods of time. 

10. Reaction control system (RCS) vernier and 
primary thruster firing. The activation of these 
thrusters results in spike-shaped acceleration signals. 
The magnitude of the acceleration depends on the 
cant, and type of thruster. For the reentry and de- 
scent portions of the 10 flights analyzed herein, there 
is no record of instances of vernier thruster firing, tor 
the purposes of future analysis of flights when vernier 
thruster firing does occur during reentry and descent, 
the maximum signal magnitude is expected to be 
approximately 120 fifj. In the case of the primal y 
thrusters, the maximum signal magnitude is approx- 
imately 4000 fig . The primary thrusters are used to 
control the orbiter attitude until aerodynamic sur- 
faces become effective. Therefore, primary thruster 
activation occurs frequently during descent. The sig- 
nal induced by these thrusters appears as a distinct 
spike followed by a roughly sinusoidal dampening 
lasting a few seconds. These signals are a smaller 
percentage of the total signal as the magnitude of 
the acceleration due to lift and drag increases. These 
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signals are not shown in figure 23 but are presented 
subsequently. 

Appendix B lists the GMT and altitude of the 
orbiter at the times of the APU shift, the deorbit 
burn, the pitch maneuver, and the X- and Z-axis 
saturations for each flight. 

Corrections Applied to the Acceleration 

Measurements 

All the Hi RAP data sets had to be corrected to 
account for the nonaerodynamic signals measured by 
the HiRAP. Nonaerodynamic acceleration measure- 
ments include the electronic self check, RCS thruster 
firings, APU operation, and linear accelerations in- 
duced by orbiter rotational motion. Although crew 
motions and operation of onboard machinery pro- 
duce accelerations that are measurable by HiRAP, 
no time line is available of crew motions or machin- 
ery operation (exclusive of the APU’s). However, 
because the crew are strapped into their seats during 
reentry, their mot ion- induced accelerations should be 
negligible. Therefore, it is assumed in this analysis 
that the vector sum acceleration of all crew activities 
and machinery other than the APU’s onboard the 
orbiter is random. 

The HiRAP instrument measurements include an 
acceleration bias that depends on temperature. This 
temperature bias is evident in the average nonzero 
acceleration level measured by the instrument after 
the instrument, has thermally stabilized at an alti- 
tude region of little or no aerodynamic acceleration. 
As temperature increases steadily during most, of the 
descent portion of flight, this temperature- induced 
bias also increases. This change of bias with temper- 
ature is referred to as the bias slope. The tempera- 
ture bias and bias slope must be removed from the 
acceleration measurements. The following sections 
detail the procedure of accounting for any nonaero- 
dynamic signals, temperature bias, and bias slope in 
the HiRAP acceleration measurement data sets. 

Removal of thruster effects . The reaction 
control system (RCS) thrusters provide attitude con- 
trol for the OV at or near orbital altitudes and during 
the early portion of descent where control surfaces 
an' ineffective. The RCS is composed of 38 primary 
thrusters and 6 vernier thrusters, which are grouped 
in three locations on the orbiter. One RCS thruster 
group is in the forward nose section and the other 
two are located on the left and right aft thruster 
Pods. When the primary thrusters are activated, 
the resulting acceleration signals vary in magnitude 
up to approximately 4000 fjg. The resulting signal 


can he greater when several thrusters fire simultane- 
ously or less when only a thrust component is mea- 
sured. When activated, each thruster fires in bursts 
of 80 msec separated by gaps of 80 msec. 

It is not practical to separate the effect of each 
RCS thruster firing from the aerodynamic signal be- 
cause the magnitude of the acceleration signal of each 
thruster can vary from one occurrence to another. 
Thus, sections of acceleration measurements that oc- 
cur during the thruster firing must be removed from 
the measurement data set. During each flight, the 
thruster firing histories are recorded on the OEX 
flight tape. By reading the times of the thruster 
firings from the OEX flight tape, the thrust compo- 
nent acceleration measurements can be identified and 
removed. 

Source code ZPRESS reads the RCS chamber 
pressures from data tapes JHXX and outputs the 
number of occurrences of firing for each thruster and 
the reference pressure of each firing. The minimum 
reference pressure of each thruster is identified. This 
is called the zero reference pressure. Source code 
THRUST reads the chamber pressures and removes 
X- and X axis acceleration measurements that occur 
when any chamber pressure exceeds its zero reference 
pressure. Source code GPREMXX removes E-axis 
acceleration during periods when thruster pressure 
exceeds its respective zero reference value. Refer 
to appendix D for the VSN identifier of the RCS 
chamber pressure tapes found in the tape library. 

In addition, the interval of RCS activity is ex- 
panded to compensate for synchronizing errors that 
result in differences between the acceleration re- 
sponse and the thruster chamber pressure readings. 
This results in a lag of up to 1 sec between the 
thruster firing time and measured discrete acceler- 
ation. Within the source code THRUST, this time 
difference is accounted for by decreasing the initial 
thrust firing time by a lag time called TLAG. There- 
fore, the interval of data to be removed starts prior 
to the time recorded for the thruster firing. 

A second expansion accounts for thrust-induced 
structural ringing. This ringing signal occurs after 
all chamber pressures have returned to their zero 
reference values following a firing sequence. Within 
fhe THRUST code, this second expansion occurs by 
increasing the thrust firing interval time by a time 
called TLAG1. 

Often thruster acceleration signals overlap. This 
leads to a complete masking of the desired aerody- 
namic acceleration signal because so much of the ac- 
celeration data are removed with the thrust spike and 
thrust ringing. A study was performed to determine 
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the minimum amount of data to remove while the 
thrust ringing and time synchronization problems are 
still accounted for. The results arc that the value of 
TLAG is 0.04 sec for flights STS-06, STS-07, STS- 

08, STS-09, STS-41B, STS-41C, STS-51B, and STS- 
5 IF. For flights STS-61 A and STS-61C, TLAG is 0.84 
and 0.08 sec, respectively. The value of TLAG1 is 
0.80 sec for flights STS-06, STS-07, STS-08, STS- 

09, STS-41B, STS-41C, STS-51B, and STS-51F. For 
flights STS-61A and STS-61C TLAG1 is 0.96 sec. 

The acceleration data for the expanded time scale 
shown in figure 24 clearly show the thruster firing and 
the ringing for flight STS-61 C. The thrust signal is 
indicated by the large, spike-shaped signal followed 
by dampening in the X- and Z-axis acceleration 
histories. In this case, the Y-axis is not impacted 
significantly by the thrust signal, but it is for other 
thruster firings. 

Figure 25 shows an example of the expanded scale 
effects of thrust signal removal for flight STS-61C. 
The greater variation of the Z-axis data is due to 
the accelerations induced by the APU activity. In 
some cases, spike-shaped signals remain in the data 
following the thrust removal analysis. The reason for 
this is not currently known but may be related to 
the quality of the RCS data tapes. These spikes arc 
removed later. 

Conversion of counts to engineering units . 
The accelerometer count data are converted to engi- 
neering units with a temperature-independent scale 
factor for flights STS-06, STS-07, STS-08, STS-09, 
STS-41B, STS-41C, STS-51B, and STS-61C. In these 
cases when scale factors are assumed constant, the 
scale factors are applied in source code JTRATES 
for the A- and Z-axis accelerations and in source 
code YCONVXX for the Y-axis acceleration. These 
converted X- and Z-axis acceleration measurements 
arc contained in files NTCXX and converted V -axis 
measurements are contained in files MGWTHXX. 

Flights STS-51F and STS-61A were instrumented 
with the modified version of HiRAP S/N 002. The 
instrument was modified by the application of a 
large positive bias to create an offset of the signal 
of 7000 fjg. Also, as part of the instrument modifica- 
tions, a procedural change was introduced, namely, 
to evaluate scale factor as a function of tempera- 
ture monitor voltages. The relationship of scale fac- 
tor to temperature monitor voltages provided by the 
ground calibration is used. For these cases, the scale 
factors are applied in source code ORBPLOTA for 
the X- and Z-axis accelerations and in source code 
YCONXX for the Y-axis acceleration. These con- 
verted X - and Z-axis acceleration measurements are 


contained in output files MGXX and the converted 
Y-axis acceleration measurements are contained in 
output files MGWTHXX. The scale factors for each 
axis and instrument are presented in table 2. 

The temperature dependency of the scale fac- 
tors of the modified instrument S/N 002 was eval- 
uated to determine its effect on the acceleration 
measurements. For a typical change in monitor volt- 
age over the descent period, the scab' factor change 
(and subsequently the acceleration change) is approx- 
imately 0.25 percent . For example, at an accelerom- 
eter reading of 16 383 counts (full scale), the value of 
acceleration after conversion with the temperature- 
dependent terms for scale factor is 8019 /Jfy. 4 he 
value of acceleration after conversion, disregarding 
the temperature-dependent terms for scale factor, is 
7999 fH]. Figures 26 to 35 show the time histories of 
reentry and descent acceleration measurements after 
the conversion from counts to engineering units and 
after thrust spikes have been removed. 


Correction to account for instrument offset 
from center of gravity . The HiRAP instruments 
are not mounted at the orbiter centers of gravity. Be- 
cause of this offset, HiRAP measures linear accelera- 
tions that are induced by orbiter rotational motions. 
Once the conversion to engineering units is made, 
the X- and Z-axis acceleration histories are corrected 
with the program JTR ATES to remove these induced 
linear accelerations. This procedure does not include 
removing induced accelerations from the Y-axis ac- 
celeration histories because the offset of the Y - axis 
sensor from the center of gravity is so small that the 
error due to induced accelerations on the Y-axis is 
insignificant. 

The induced accelerations are calculated with the 
distance between the accelerometer mounting loca- 
tions and the flight-dependent location of the cen- 
ter of gravity at approximately 122 000 in (entry 
interface). Center-of-gravity locations and reentry 
OV mass values are tabulated in appendix E for all 
10 flights. The XBETXX files hold orbiter rotational 
rates and rates of change. These files are input to 
program JTRATES along with files NTCXX (or, in 
the cases when a temperature-dependent scale fac- 
tor is used in the conversion process, files MGXX). 
Program J RATES reads the 1-Hz rotational rates, 
calculates the resulting induced accelerations, inter- 
polates the induced accelerations to the HiR AP data 
rate, and subtracts the induced linear accelerations 
from the HiRAP measurements. The corrected ac- 
celerometer data are written to file CGXX. 
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The complete induced acceleration matrix is as 
follows: 




x- 


- - {q 2 + r 2 ){pq - f)(pr + q) ' 

AA, 

= 

Y 


(pq + r) - (p 2 + r 2 )(qr - p) 

_AA : . 

— 

.Z. 


- (pr - q)(qr + p) - (p 2 + q 2 ) . 


where 

A.4 r induced linear acceleration along X-axis 

A.4 y induced linear acceleration along T-axis 

&A Z induced linear acceleration along Z-axis 

X distance along X-axis of HiRAP to 
orbiter center of gravity 

Y distance along 1 -axis of HiRAP to 
orbiter center of gravity 

Z distance along Z-axis of HiRAP to 
orbiter center of gravity 

p pitch rate 

q yaw rate 

r roll rate 

j) pitch rate of change 

q yaw rate of change 

r roll rate of change 

Noise is introduced to the acceleration data by in- 
cluding rotational rates of change in the calculation 
of induced linear accelerations. This is due to nu- 
merical differentiation of the gyro data. The error in 
excluding the effect of rotational rates of change is 
on the order of 1 fig (except for data segments dur- 
ing the deorbit maneuver, which are not analyzed 
herein). Therefore, after removing the T-axis correc- 
tion and the rates of change terms, the algorithm to 
correct for induced accelerations reduces to 


h 

<1 
1 

= 

X 

~{q 2 + r 2 ){pq)(pr) ' 

A.4; 

— 

[z_ 

.( pr){qr ) - (p 2 + q 2 ) _ 


With improvement in the resolution of the rotational 
data, it may be possible to more precisely account 
for the induced linear accelerations due to rotational 
rates of change. 

It is important to note that the corrected ac- 
celerations in the CGXX file begin at the time the 


XBETXX file begins. This time occurs prior to the 
aerodynamic region of study, as the XBETXX files 
begin at approximately deorbit burn. Should higher 
altitude orbiter angular velocity data be required, the 
data given by the Aerodynamic Coefficient Identifi- 
cation Package (ACIP) experiment may be used. 


Removal of random data spike. This analysis 
is performed to remove from the X- and Z-axis 
acceleration histories any remaining random data 
spikes that were not identified on the RCS tapes. 
The name of the source code used is THFIT, and 
it removes data from both the X-axis and the Z- 
axis that exceed a bandwidth around the mean. The 
magnitude of the bandwidth depends on altitude for 
the Z-axis. The bandwidth is 75 fig at times prior 
to the start of the APU's and 225 pg after this time. 
For the X-axis, the magnitude of the bandwidth is 
constant at 45 pg. This step of the analysis is not 
done for the T-axis because of the highly variable 
nature of acceleration along this axis. 

The input to source code THFIT is file CGXX. 
The output files are FITXX(X) and FITXX(Z) for 
the X- and the Z-axis, respectively. These files hold 
data from which all random data spikes have been 
removed. Code RCOMBIN reads files FITXX(X) 
and FITXX(Z) and writes the recombined X- and 
Z-axis data in file FITXX. Figures 26 to 35 show 
the acceleration data after the data spikes have been 
removed. 

Filling in data gaps . Data gaps created by 
the thrust and spike removal processes are filled so 
that acceleration histories are continuous with time. 
Source code FILLSQR is used for the X- and Z-axis 
accelerations and source code FILLCDE is used for 
the T-axis acceleration. Both programs calculate fill 
data in a similar procedure. First, the mean, slope, 
and standard error a of data adjacent to gaps are 
evaluated with linear regression. Then data that fall 
outside ±3cr of the line are culled. The standard 
error of the remaining data is then evaluated, and 
data outside the ±3<r fit found by the regression are 
again removed. The fill data are then calculated 
to replicate the standard error, slope, and mean of 
these remaining data. The fill data then replace all 
points missing because of thrust removal. Plots of 
the resulting X-, Y-, and Z-axis acceleration data 
are shown in figures 36 to 45. Comparing these filled 
data sets with the FITXX files in figures 26 to 34 
shows how the time continuity is maintained without 
significantly altering the aerodynamic acceleration 
data set. 
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Effect on instrument measurements due 
to misalignment within preflight tolerances . 
Alignment of the internally orthogonal HiRAP axes 
relative to the orbiter body axes is checked when the 
instrument is installed. For each HiRAP installation 
on the OV, the alignment check indicated the HiRAP 
axes were aligned within the preflight tolerance of 
5 arc minutes. 

The error due to misalignment of the HiRAP in- 
strument when alignment is within tolerances would 
be greatest on the X- and T-axes. This is because 
of larger forces on the Z-axis. To illustrate, the cor- 
rected acceleration along the X-axis A xx can be rep- 
resented as a function of the measured acceleration 
in the X- and Z-directions as follows: 

A x c = A X jn cos 9 + A Z jn sin 9 

where 

A x>c corrected acceleration on X-axis 

A XyTn HiRAP X-axis channel acceleration 
measurement 

A z , m HiRAP Z-axis channel acceleration 
measurement 

9 misalignment angle, deg 

For 0 — 5 arc minutes, at an altitude of about 
100 km, the above relation gives the error due to 
misalignment to be approximately 1.5 percent of the 
measured force along the X-axis. This is equivalent 
to an absolute error of approximately 5 pg. As there 
is no information to define the alignment angles to 
an accuracy greater than the alignment tolerances, 
no attempt is made to account for any misalignment 
within the preflight tolerances. 

Calculating temperature bias , bias slope , 
and APU effects . The temperature bias of each 
sensor was evaluated for a large range of tempera- 
tures and varying temperature rates of change in the 
laboratory before installation and after any modifi- 
cations. The previous baseline analysis of HiRAP 
flight data used results of these laboratory calibra- 
tions to calculate temperature bias and bias slopes. 
(See appendix F for an explanation of the ground 
calibration procedure.) However, the laboratory cali- 
brations consist of a limited set of accelerometer data 
performed in a laboratory environment of 1 g and do 
not simulate the acceleration environment of reen- 
try. As a result, it was decided to evaluate tempera- 
ture bias and bias slope for each flight using accelera- 
tion measurements. In the free- molecular- flow flight 


regime (above an altitude of approximately 160 km), 
the aerodynamic accelerations on the orbiter are less 
than 1 fjg. Therefore, if all thruster, APU, and other 
orbiter environmental effects can be accounted for, 
the bias and bias slope of the HiRAP measurements 
due to temperature change can be evaluated. 

Laboratory results show that for HiR AP S/N 001 
the bias slope changes with temperature. For the 
full range of temperatures in the laboratory test 
(from 30° to 120°F), bias slope can change by up to 
40 percent (ref. 9). However, for instrument S/N 001, 
laboratory results show that for the more limited 
temperature changes during descent (approximately 
4°F change), the effect of neglecting the change in 
bias slope in the calibration of the acceleration data 
is on the order of 1 fig. Therefore, in this analysis, 
for each flight, bias slope is assumed to he constant 
over the period of descent. 

The three APU’s on the orbiter are started 
after the deorbit burn but prior to occurrence of at- 
mospheric effects. The APU’s idle in standby, pre- 
pared to provide power for the hydraulic flight con- 
trol systems during reentry. The exhaust, from each 
APU produces an acceleration signal at a frequency 
of about 1 Hz. This exhaust signal strongly impacts 
acceleration along the Z-axis because of the align- 
ment of the APU exhaust ports. The exhaust signal 
varies over less than 1 sec because the fuel feed is 
pulsed during operation. The magnitude of the sig- 
nal varies from ±300 fig on the Z-axis. The average 
magnitude of the signal over time scales greater than 
2 sec is approximately constant. Therefore, for the 
purposes of this analysis, the APU signal is treated 
as a bias in the acceleration measurements. 

There is some error associated with treating the 
APU signal as a bias. This error is due to the 
asymmetry of the APU signal. The APU signal is 
greatest in the negative direction on the Z-axis. The 
extent of asymmetry was calculated for one flight. 
In this case, the arithmetic difference between the 
1-sec mean and the 1500-point, median of a segment 
of Z-axis data (after APU start and before reentry) 
is approximately 10 fig. Until more accurate methods 
of removing the effect of the APU are developed, the 
value of the bias will be in error by approximately 
this amount. 

The three APU’s are running after thermal gra- 
dients of the HiRAP have stabilized. Thus, a bulk 
bias, made up of APU bias and temperature bias, 
can be evaluated from HiRAP measurements when 
all APU’s are running. This bulk bias must also be 
evaluated before the HiRAP measures aerodynamic 
accelerations. 
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The start time of the calibration period is set for 
at least 10 sec after all APU’s have been started. 
Tin* total length of time for the calibration period 
is chosen to maximize the amount of data and thus 
ensure the APT bias will be approximately constant. 
I he end times of the calibration period for each flight 
are adjusted so that the total calibration period lasts 
100 sec but excludes data containing atmospheric 
effects. 

The acceleration data sets used to evaluate the 
bulk bias and bias slope are data sets for which 
thruster effects and induced linear accelerations have 
bet'ii removed. With the use of these corrected 
measurements, data, that exceed the mean by lia are 
removed. The bulk bias is calculated by evaluating 
t he result ing mean value of acceleration for each axis. 
The bias slope is calculated by evaluating the change 
of the mean value of acceleration with temperature 
over the 100-see calibration period. This method was 
applied to all 10 flights. 

An alternate method is used to evaluate the bulk 
bias. This method starts with acceleration data 
sets that still contain RCS thrust. To eliminate 
the RCS thrust signal, only those data points that 
vary in magnitude from adjacent points by greater 
than the exhaust, thrust signal from one APU are 
removed. Also, to account for lead and lag times 
to thruster activity, data just prior to and following 
these periods are also removed. The remaining data 
tire fit to a line and the intercept is calculated. The 
biases calculated with this method are within 4 fig of 
the biases calculated with the first method for RCS 
thruster removal. 

Appendix (J lists the bias and bias slope results 
found with both the thrust removal method and the 
alternate statistical method for the Z-axis. The 
comparative values given by the ground calibration 
are also shown. The biases and bias slopes for the X- 
and the } -axis are calculated only with the thrust 
removal method. 

The method used to evaluate bulk bias that does 
not require processing of RCS thrust data is approx- 
imately as accurate as the method that does. In 
the event that thrust data are not available at the 
t ime HiRAP acceleration data sets are processed, this 
method provides a reasonably valid means of evalu- 
ating t he bulk bias and bias slope. 

Subtracting bulk bias and bias slope to pro- 
duce aerodynamic accelerations. The bulk bias 
lor each axis is subtracted from the acceleration data 
starting at the beginning of the 400-sec calibration 
period and continuing to saturation or, in the case 


of the T-axis, to the time when the sensor temper- 
ature begins to decrease. The bias proportional to 
increasing temperatures is then subtracted from the 
acceleration data. The resulting acceleration data 
are considered to be the best measurement of the 
aerodynamic component accelerations of the orbiter 
during reentry. 

These full rate acceleration histories are averaged 
over 1 sec for use in another phase of analysis. Source 
code TYMAVG is used to average X- and Z-axis 
data, while source code INTTIM is used to average 
T-axis data. Figures 46 to 55 show the 1-sec averaged 
reentry aerodynamic acceleration data sets for each 
flight and axis. 

The source codes used in the data reduction dis- 
cussed herein arc given in appendix H. 

Analysis of Aerodynamic Acceleration 
Measurements 

The HiRAP acceleration data set has been mod- 
ified to remove or account for all recognized non- 
aerodynamic forces. As these data represent only 
the aerodynamic forces on the OV during unpow- 
cred reentry through the rarefied- flow regime, perfor- 
mance and state analyses may be performed. Two 
of these analyses, characterization of the aerody- 
namic force coefficients and an estimation of the at- 
mospheric density, are performed and the results are 
presented in this document. 

Aerodynamic Coefficient Analysis 

The reentry aerodynamic acceleration measure- 
ments represent the atmospheric effects on the or- 
biter as it descends through varying regions of flow 
conditions. Wind tunnel tests are used to provide es- 
timates of orbiter aerodynamic coefficients at lower 
altitudes approaching the hypersonic-continuum-flow 
regime (less than about 60 km). Computer simu- 
lations are list'd to estimate OV aerodynamic per- 
formance coefficients at orbital altitudes in the free- 
molecular- flow regime (greater than about 160 km). 

A previous analysis (ref. 5) used HiRAP flight 
measurements to develop an aerodynamic model that 
provides estimates of the orbiter aerodynamic coef- 
ficients in the transitional- flow regime between the 
continuum- and free- molecular- flow regimes: 

C a = exp [ '-A (B - log 1() N Kn ) c J (1) 

C n = exp \-D (E - log],, 7 Vk„) F ] (2) 

where 

C a normalized axial- force coefficient 
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C n normalized normal- force coefficient 
A = 0.2262 

B = 1.2042 

C = 1.8410 

D = 0.2998 

E = 1.3849 

F = 1.7120 


Figure 56 shows a plot of the normalized coeffi- 
cients C a and C n as functions of Knudsen number. 
The values of C a and C n can be calculated from the 
normalized values given by equations ( 1 ) and ( 2 ) and 
the values of these coefficients in the free-molecular- 
and continuum-flow regions, as shown below: 

Ca = C, u . + (C aJ -C l ,,.)C <l 

Cn = Cn. c + (C„J - ('„.<■) Cn 


This model uses input axial and normal components 
of aerodynamic acceleration to calculate the aero- 
dynamic coefficients of the orbiter along its descent 
path. It includes the effects of orbiter attitude and 
control surfaces. The results of the model are com- 
pared with the expected results as a measure of the 
accuracy of the input accelerations. 

The HiRAP X- and Z -axis aerodynamic accelera- 
tion histories presented herein are input to the model, 
along with orbiter orientation and control surface de- 
flections. The model is run for all altitudes between 
the highest altitude for which atmospheric effects are 
sensed by the HiRAP instrument and 60 km. For the 
purposes of this analysis, the highest altitude is the 
altitude at which simultaneous 1 -sec averages of the 
X- and Z-axis accelerations are negative (an indica- 
tion of atmospheric drag). 

The following sections describe how the model 
works and present the results from the model used 
with the aerodynamic acceleration histories pre- 
sented in this report. 

Inputs to the Aerodynamic Model 

To create continuous aerodynamic acceleration 
histories for altitudes above 60 km, where the HiRAP 
instrument saturates, accelerations measured by the 
IMU’s (ref. 10) are used. The IMU-derived accelera- 
tions are at a 1 -Hz data rate. Source code MERG 
replaces saturation values of 1 -sec averages of the 
HiRAP aerodynamic accelerations with the IMU- 
derived accelerations. The XBETXX and ABETXX 
are input files to MERG. The result is a continu- 
ous record of the X- and Z-axis accelerations with 
simultaneous velocity, attitude, and control surface 
deflection data written to file HKDATXX. 

The Aerodynamic Coefficient Model 

Source code MTEST 88 contains the algorithms 
of the aerodynamic coefficient model. The model 
provides parameterizations of the axial and normal 
coefficients of the orbiter as functions of Knudsen 
number Kn as shown in equations (1) and ( 2 ). 


where c refers to the continuum-flow coefficient value 
and / refers to the free- molecular-flow coefficient 
value. The continuum and free-molecular-flow co- 
efficient values are functions of angle of attack, body 
flap, and elevori. The functions that define the 
changes of these coefficients with control surfaces are 
compiled from the results of a previous analysis of 
HiRAP flight L/D measurements (ref. 5) and from 
the L-7 Orbiter Aerodynamic Data Book (OADB, 
ref. 11). Figures 57 to 59 show the hypersonic- 
continuum-flow value for the OV normal- and axial- 
force coefficients with angle of attack, body flap, and 
elevori. 

Before equations (1) or (2) can be evaluated, the 
Knudsen number must be known. Knudsen number 
and atmospheric density are related by 


N 


Kn - 


760 


pd 


( 3 ) 


where 

MW 76 mean molecular weight estimate from 

1976 U.S. Standard Atmosphere (ref. 1) 

l molecular mean free path constant 

d mean chord of orbiter 

p atmospheric density 

As there is no measurement of density along the 
descent path, density must be implicitly derived with 
an iterative procedure. The MTEST 88 program 
solves for a value of Knudsen number that satisfies 

Cj, model - Ci, n = 0 ± 0.001 (4) 

where i represents axial or normal coefficient. 

The definition of the measured aerodynamic co- 
efficients C i m is 

Q,m = ^,m( ' ( 5 ) 


where 

Ci m axial or normal coefficient 
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Aj fn 1-sec average of measured axial or 

normal acceleration 

S orbit, er reference area 

M orbiter mass 

l orbiter velocity 

These definitions show that the accuracy of the result 
for a density that satisfies equation (4) depends 
partly on the accuracy of the measured axial or 
normal accelerations .4, for a given aerodynamic 
model. 

Atmospheric Density Analysis 

An initial value of density is required to start the 
iteration. The initial density estimate is calculated 
by 

G v^cuy' 

where p a is the initial value of density, C n is the aver- 
age of the OADB free-molecular- flow and continuum- 
flow values of C n , and A z ^ n is the normal acceleration 
measurement. Because C n varies only about 17 per- 
cent. in the transition from the free- molecular- flow 
regime to the continuum-flow regime, this initial es- 
timate has an error of about 8.5 percent. 

The program first converges on a value of den- 
sity using normal acceleration. To start the itera- 
tion. C n is calculated from the estimate of density 
and equation (4) is evaluated. For each cycle of the 
iteration procedure, the program changes the esti- 
mate of density by increments. These increments are 
determined by the Ncwton-Raphson method and arc 
proportional to the difference between C n and C njn , 
where C njfl is a coefficient, formed by the measure- 
ment of normal acceleration and the current iterated 
value of density. The iteration continues until the dif- 
ference between consecutive density estimates is less 
than 0.1 percent (indicating a satisfactory solution 
has been found). The program repeats the above 
procedure to converge on a value of density using 
axial accelerations (i.e.. the program converges on a 
value of density that satisfies the relation in eq. (4)). 

Because the axial coefficient varies by approxi- 
mately 100 percent between the free- molecular- flow 
and the hypersonic-continuum-flow regime, the ini- 
tial density estimate used in the axial density calcu- 
lation is the same as that in the normal acceleration 
iteration procedure. 

Summary of Atmospheric Density 

Analyses 

The MTEST88 program calculates a density de- 
rived from normal accelerations, and a density de- 


rived from axial accelerations, for each 1-sec average 
of the reentry and descent acceleration histories used 
in the aerodynamic analysis. The expected result is 
that these densities derived from separate measure- 
ments arc equal. 

Parts a of figures 60 to 69 show profiles of the ratio 
of the density derived from the normal acceleration to 
the density derived from the axial acceleration. The 
expected result is that density ratio profiles vary less 
than 1 percent in the altitude region of 60 to 120 km. 
Within this region, variations of greater magnitude 
arc expected to occur, but these occurrences should 
generally be short-term. The density ratio profile at 
altitudes above 120 km is expected to show greater 
variations because of the varying APU signal. 

For 8 of the 10 flights, density ratio results match 
expected results. However, for flights STS-51F and 
STS-61A, the density derived from the normal accel- 
eration differs from the density derived from the axial 
acceleration by more than 15 percent for an extended 
portion of the profile (at altitudes of 95 to 110 km). 

For the eight flights for which density ratio re- 
sults do match expected results, the density profile 
results are compared with the 1976 U.S. Standard 
Atmosphere (ref. 1) density profiles. These results 
are shown in parts b of figures 60 to 69, where cal- 
culated density is normalized against the 1976 U.S. 
Standard Atmosphere value. In this comparison, the 
density used is derived from the HiRAP axial acceler- 
ation measurements from the highest altitude of the 
aerodynamic analysis to that altitude at which the 
HiRAP axial channel saturates. Below this satura- 
tion altitude, the density profiles are derived with 
IMU normal axis acceleration measurements. For 
these flights, the calculated densities differ from those 
of the 1976 U.S. Standard Atmosphere by —50 to 
20 percent at higher altitudes. These variations may 
in part be due to the origin of the Standard Atmo- 
sphere assumptions, particularly the uncertainties at 
high altitudes. 

Density ratio results of flights STS-51F and STS- 
61 A indicate the possibility of errors in the aerody- 
namic component accelerations. Also, density ratio 
results for these flights could indicate possible errors 
either in the parameterizations of the aerodynamic 
coefficients in the transit ion- flow regime or in the as- 
sumptions of atmospheric state in the iteration pro- 
cedure. Each of these areas was investigated and the 
results are presented below. 

Possible Error Sources in Flights STS- 51 F 

and STS- 61 A Component Accelerations 

Errors in the density ratio results of the 
MTEST88 program occur if the C i m parameters of 
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equation (4) are inaccurate. The definition of C^ m 
given by equation (5) shows that the accuracy of 
this parameter is directly dependent on the measured 
aerodynamic acceleration components 

Errors in the measurement or processing of the 
aerodynamic acceleration data sets could occur at a 
number of the stages in the experiment and in the 
analysis. Sensor malfunction seems to be a proba- 
ble source of error because flights STS-51F and STS- 
61 A were both instrumented with the modified ver- 
sion of HiRAP S/N 002. For example, the instrument 
on these two flights had unique characteristics asso- 
ciated with alignment at installation, sensor range, 
scale factor, and instrument performance. In the 
processing of the data sets, errors in the calculation 
of the bias and bias slopes would produce errors in 
the results. Each of these error sources was investi- 
gated and the results are described in the following 
paragraphs. 

Alignment at installation . If the HiRAP in- 
strument is misaligned with the orbiter body axes 
at installation or knocked from its original align- 
ment later, its measurements will not be represen- 
tative of accelerations along the orbiter body axes. 
In this case, if we assume the IMU instrument is 
aligned along the orbiter body axes, simultaneous 
HiRAP and IMU measurements will differ. To in- 
vestigate how well HiRAP and IMU measurements 
agree, the average differences between HiRAP ac- 
celeration measurements and IMU acceleration mea- 
surements in an altitude region just prior to HiRAP 
saturation are evaluated. The average differences for 
all flights are 171, 391, and 184 gg for the X-, Y-, and 
Z-axis acceleration, respectively. For flights STS-51F 
and STS-61A, differences for each axis are less than 
the average differences calculated with results for all 
flights. Thus, based upon the agreement between 
IMU and HiRAP data it appears that misalignment 
is not a source of error. 

However, it was decided to evaluate to what 
extent compensating for misalignment would affect 
density ratio results. To do this, various misalign- 
ment configurations were modeled and applied to the 
measured acceleration data Ai m . For 0 degrees of 
misalignment in the X-Z plane, the corrected accel- 
erations A I C would be 

A XjC = A Xj m cos e + A Zi m sin 0 

A Zi c = A Zj m COS e - A Xl m sin 0 

Because the magnitude of the Z-axis signal is ap- 
proximately 10 times that of the X-axis signal at 


altitudes of 95 to 110 km, relatively small angles of 
misalignment would change axial acceleration greatly 
if some part of the normal signal were impacting the 
axial measurement. The input data of X- and Z-axis 
HiRAP accelerations are adjusted to simulate the ef- 
fect of correcting for misalignment. For a 1° mis- 
alignment in the X-Z plane (9 = — 1 ), the results of 
the density ratio profile are shown in figure 70. These 
results show much improvement over the original re- 
sults in the altitude region of 95 to 110 km. However, 
the average difference between IMU and HiRAP ac- 
celerations is recalculated for each axis and is much 
greater than the difference for the original accelera- 
tions. Thus the analysis of alignment errors and their 
effects on the density ratio results does not resolve 
the anomaly in the results for flights STS-51F and 
STS-61A. In addition, the introduction of alignment 
errors produces an IMU-HiRAP mismatch. 

Sensor range modification . As part of the 
measurement range modification to the HiRAI 
S/N 002 instrument, a large positive bias was applied 
to the instrument. This results in approximately 
twice the range capability for the modified S/N 002 
than for the S/N 001 or the unmodified S/N 002. 
However, the results of the laboratory calibration of 
the modified S/N 002 (ref. 11) present a value for 
scale factor that is approximately equal to that for 
the S/N 001 (ref. 10) and for the unmodified S/N 002 
(ref. 12). Initially this result was unexpected because 
of the large differences in range capability. 

The laboratory calibrations of the sensors were 
checked to ensure that an incorrect value of scale 
factor is not being applied to the measurements. 
Subsequently it was found that the sensor scale factor 
does not change because of the range modification 
(private communication from Doug Thomas, KMS 
Fusion, Inc., Ann Arbor, Michigan). 

Also as part of the modification procedure, scale 
factor was evaluated as a function of temperature 
monitor voltage. An incorrectly compensated scale 
factor of the modified HiRAP S/N 002 in the accel- 
eration data sets was investigated. However, it was 
found that the temperature dependency of scale fac- 
tor has no significant impact on the results. The 
scale factor used for flights STS-51F and STS-61A 
acceleration data sets does not appear to be in error. 

Faulty instrument operation . Laboratory cal- 
ibration results for the unmodified HiRAP S/N 002 
show that the instrument failed at certain tem- 
peratures. Part of the purpose of modifying the 
HiRAP S/N 002 is to fix these failure points. Al- 
though the laboratory calibration results for the 


13 



modified HiRAP S/N 002 instrument do not indicate 
any instrument malfunction, it is unlikely but possi- 
ble that a failure could still occur at certain temper- 
atures. If a failure does occur, it could be associated 
with internal synchronization within the instrument, 
that is, certain elements of the electronics become out 
of phase with other component elements during flight 
(ref. 8). This could result in errors in acceleration on 
the order of 100 fjg, and is most likely to occur in 
the range of approximately 95°F. From the ignition 
of the three APU’s to landing, sensor temperatures 
change from 74° to 79°F and from 96° to 102°F for 
flights STS-51F and STS-61A, respectively. With the 
loss of HiRAP S/N 002 on Space Shuttle Challenger 
there is no way to determine if an instrument failure 
did occur. This remains a possible source of error. 


Calibration. The flight post-APU (i.e., after all 
APU initiations) calibration of the bias and tem- 
perature bias slopes of flights STS-51F and STS- 
61A could be incorrect. These parameters are 
compared with laboratory results for the modified 
HiRAP S/N 002 instrument. For the X- and the Z- 
axis on both flights, the greatest difference between 
the calculated result anil the laboratory result for 
acceleration bias is approximately 1 percent (or ap- 
proximately 70 fig). As instrument bias is expected 
to drift with time, this difference is considered to be 
within a normal range. 

For flights STS-51F and STS-61A, the greatest 
difference between the calculated result and labora- 
tory result for bias slope occurs for the .Y-axis for the 
STS-61A acceleration history and is approximately 
20 percent (or approximately 4 fjg/° F). The dynamic 
laboratory calibration of HiRAP S/N 001 (ref. 13) 
shows that changes of bias slope with temperature of 
approximately 30 percent occur over the full temper- 
ature range of laboratory calibration. However, the 
only calibration of the modified HiRAP S/N 002 in- 
strument was a static calibration, so that bias slopes 
for this instrument are available only for a limited 
number of temperatures. Therefore, as the bias of 
HiRAP S/N 001 instrument is shown to change by 
30 percent in the laboratory calibration, there is no 
reason to conclude that the calculated bias slope dif- 
ference of 20 percent from the laboratory calibration 
value for the modified S/N 002 is abnormal. 

As a final check of the calibration of the acceler- 
ation histories for flights STS-51F and STS-61A, it 
was decided to apply the laboratory results for bias 
and bias slope in the calibration of these data sets 
to see if the aerodynamic analysis results would im- 
prove. However, the density ratio results for both 


flight STS-51F and flight STS-61A with these recal- 
ibrated data sets are very similar to the results with 
acceleration data calibrated from the post-APU pro- 
cedure. It should be noted that the post-APU cali- 
bration worked on eight flights. Therefore, the post- 
APU procedure for calibrating the acceleration data 
sets appears to be acceptable. 

Adjustment to scale factor . If the magnitude 
of axial acceleration were increased and/or the mag- 
nitude of the normal acceleration were decreased in 
the acceleration histories of flights STS-51F and STS- 
61 A, the density ratios would more closely approach 
1.0 in this region. To test this, a new set of accelera- 
tion histories was generated for both flight STS-51F 
and flight STS-61A. For the new set, the scale fac- 
tor used on the A-axis for each flight was decreased 
by 5 percent over the laboratory value, the result 
being an increase in A-axis acceleration. Also, the 
scale factor of the Z-axis was increased by 5 per- 
cent, the result being a decrease in Z-axis acceler- 
ation. The MTEST88 program was run with the 
new data sets as input. The density ratio results did 
improve for each flight. However, the agreement be- 
tween IMU and HiRAP acceleration measurements 
is considerably worse than it was before scale factor 
was changed. Thus an adjustment to scale factor is 
not an acceptable remedy to the HiRAP acceleration 
data sets. 

Possible Errors in Estimates of 

Aerodynamic Coefficients 

As described in the section explaining the aero- 
dynamic performance model, the purpose of the 
MTEST88 source code is to converge on a value of 
density that satisfies equation (4). From this equa- 
tion, it can be seen that the density results would be 
in error if the value of C ., \ mo( ] e { were in error. 

The aerodynamic model includes the effects of 
orbiter attitude changes. However, the model could 
be in error for only certain attitude configurations. 
For this case, the error in the results would be limited 
only to flights during which this attitude occurred. 

Flights STS-51F and STS-61A have very similar 
attitude histories. To determine if the errors in the 
density ratio results are correlated with attitude, the 
density ratio results are plotted along with normal 
coefficient versus altitude for flight STS-61A in fig- 
ure 71. Any short-term variation of normal coef- 
ficient is due to attitude change. From figure 71, 
there does not appear to be a correlation between 
the short-term variation in normal coefficient and the 
17-percent error in the density ratio results at alti- 
tudes of 95 to 110 km. As short-term variation in the 
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normal coefficient is predominantly due to changes in 
angle of attack, the error in the density ratio results 
does not appear to be linked to changes in angle of 
attack. However, the density ratio results may be 
linked with other functions of the model, such as the 
compensation of body flap and elevon. These have 
not been evaluated. 

Possible Errors in Assumptions of 

Atmospheric State 

The MTEST88 program results for density ratio 
are affected by the assumed molecular weight pro- 
file because the value of Knudscn number used in 
the iteration depends on molecular weight, as shown 
in equation (3). Presently, the assumed molecular 
weight profile of the MTEST88 program is the 1976 
U.S. Standard Atmosphere (ref. 1) profile for molecu- 
lar weight. This model atmosphere represents a best 
estimate of the average atmospheric state over all 
latitudes, longitudes, and solar activity. Therefore, 
this model provides a value of atmospheric state as 
a function of a single variable, altitude. 

Below the turbopause, at approximately 90 km, 
constituents of the atmosphere are completely mixed. 
Above the turbopause, molecular weight varies with 
latitude, longitude, and solar activity because the 
constituents are diffuse enough to react indepen- 
dently to solar activity. Therefore, at any altitude 
above the turbopause, the actual atmospheric molec- 
ular weight at the position of the orbiter trajectory 
may vary considerably from that value given by the 
1976 U.S. Standard Atmosphere. Also, adjustments 
to the height of the turbopause of up to 20 km from 
its 1976 U.S. Standard Atmosphere value of 88 km 
may be realistic. 

The impact of changing the assumed molec- 
ular weight on the density ratio results of the 
MTEST88 program was investigated for the results 
of flight STS-61A. For the alternate profile, the alti- 
tude of the turbopause is decreased and the rate at 
which molecular weight drops off with altitude above 
the turbopause is increased relative to the 1976 U.S. 
Standard Atmosphere value. For example, at an al- 
titude of 140 km, the molecular weight given by this 
alternate profile is approximately 20 percent lower 
than the 1976 U.S. Standard Atmosphere value. Fig- 
ure 72 shows density ratio results for flight STS-61A 
with an alternate molecular weight profile. The 
density ratio results do show improvement with 
this alternate molecular weight profile. However, 
these density ratio results arc still not satisfac- 
tory, and for further improvement, the molecular 


weight profile approaches unrealistic values. There- 
fore, the approach of changing the assumed molec- 
ular weight does not appear to resolve density ratio 
discrepancies. 

Concluding Remarks 

This report presents the data analysis procedure 
for obtaining orbiter vehicle (OV) reentry aerody- 
namic acceleration data sets from High Resolution 
Accelerometer Package (HiRAP) and inertial mea- 
surement unit (IMU) measurements made as the 
OV descends through the free-molecular-, transition-, 
and hypersonic-continuum-flow flight regimes. The 
experimental data, analysis procedure, and results 
from the first 10 Space Transportation System (STS) 
HiRAP missions are presented and discussed. The 
results of the data analysis on the acceleration mea- 
surements are presented graphically for each step of 
the process from raw data to atmospheric density as 
a function of aerodynamic coefficient component. 

The purpose of the data reduction and calibration 
procedures is to produce aerodynamic acceleration 
component histories along the OV body axes from 
the HiRAP and IMU measurements of the total ac- 
celeration. The data reduction and calibration proce- 
dures include correcting for the effects of orbiter rota- 
tionally induced linear accelerations, reaction control 
system impulses, auxiliary power units, and instru- 
ment temperatures. The details of the data calibra- 
tion and reduction procedures are described in this 
document, and all source codes, flight parameters, 
and constants used in the procedures are included. 

Results of an aerodynamic analysis using the 
aerodynamic acceleration components from each of 
these 10 flights agree with expected results for 8 of 
the flights. For the two flights for which results do not 
agree with expected results (STS-51F and STS-61A), 
possible sources of errors in the measurement and 
processing of acceleration histories and in the aero- 
dynamic analysis were investigated. The conclusions 
from this error investigation show that instrument 
misalignment, calibration scale factor, post auxiliary 
power unit calibration procedures, and sensor range 
modification are not responsible for the density ratio 
discrepancies for these two flights. However, a mal- 
function of the modified version of the instrument 
that flew on only these two flights remains a proba- 
ble source of error. 

NASA Langley Research Center 
Hampton, VA 23665-5225 
January 2, 1992 
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Appendix A 

Summary of Flight Data Files 




HiRAP S/N 001 


STS-06 


OEX FLIGHT SDC DATA TAPES 


TAPES 

SCIENCE 

HOUSEKEEP 

SCIENCE TIMES 

ST4859 

1. NU1174 

SCI061 

NU1229 

HSKP061 

DAY 94, ASCENT 
66301-67660 SEC. 
18:25:01-18:47:40 

ST4875 

2. NE0520 

SCI062 

NE0535 

HSKP062 

DAY 96, ORBIT 
71881-74662 SEC. 
19:58:01-20:44:22 

ST4860 

3. NG0279 
SCI063 

NG0280 

HSKP063 

DAY 96, ORBIT 
72001-74164 SEC. 
20:00:01-20:36:04 

ST4876 

4. NE0609 
SCI064 

NE0658 

HSKP064 

DAY 98, ORBIT 
76561-78734 SEC. 
21:16:01-21:52:14 

ST 4858 

5. NG0633 
SCI065 

NG1066 

HSKP065 

DAY 99, DESCENT 
64492-68192 SEC. 
17:54:52-18:56:32 


DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

ACCELEROMETER 
COUNTS 
MIN. MAX. 

DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

TEMPERATUP 
COUNTS 
MIN. MAX. 

SCI061 

236000 

X:0 

16383 1 

HSKP061 

3689 

X:75 

104 



Y:0 

16383 

1 



Y:28 

249 

ASCENT 


Z:0 

16383 1 



Z:77 

105 

SCI062 

440000 

X:0 

16017 i 

HSKP062 

6870 

X:97 

242 



Y:38 

16322 1 

1 



Y:69 

128 

ORBIT 


Z:0 

14919 1 



Z:97 

239 

SCI063 

376000 

X:0 

15787 j 

HSKP063 

5869 

X:98 

242 



Y:94 

16256 l 



Y:60 

123 

ORBIT 


Z:0 

14919 J 



Z:97 

239 


16 


SCI064 


HSKP064 5902 


ORBIT 

SCI065 

DESCENT 


377791 X:5177 

Y:3356 
Z-.1990 


643453 X:0 

Y:0 
Z:0 


9688 

16116 

16383 

16383 

16383 

16383 


HSKP064 


10053 


X:105 
Y :28 
Z: 105 

X:5 

Y:6 

Z:6 


125 

249 

124 

209 

214 

209 


EXTENDED BET SOURCE FILE NC0709 

AEROBET SOURCE FILE NK0917 




STS-07 


HiRAP S/N 001 




OEX FLIGHT 
TAPES 

SDC DATA TAPES 
SCIENCE HOUSEKEEP 

SCIENCE TIMES 

ST5075 

1. NA0210 
SCI071 

NA0216 

HSKP071 

DAY 169, ASCENT 
41041-42362 SEC. 
11:24:01-11:46:02 

ST5076 

2. NA0254 
SCI072 

NA0280 

HSKP072 

DAY 175, ORBIT 
45656-47789 SEC. 
12:40:56-13:16:29 

ST5077 

3. ND0379 
SCI073 

ND0571 

HSKP073 

DAY 175, DESCENT 
47794-50492 SEC. 


13:16:34-14:01:32 


COARSE 


DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

ACCELEROMETER 
COUNTS 
MIN. MAX. 

DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

TEMPERATURE 
COUNTS 
MIN. MAX. 

SCI071 

224000 

X:0 

16383 [ 

HSKP071 

3504 

X:85 

114 



Y :0 

16383 ] 



Y:84 

116 

ASCENT 


Z:0 

16383 ] 



Z:87 

207 

SCI072 

370801 

X:0 

15825 J 

HSKP072 

5793 

X:61 

177 



Y:0 

16342 



Y:63 

230 

ORBIT 


Z:0 

16383 j 



Z:62 

207 

SCI073 

468871 

X:5627 

16383 j 

HSKP073 

7328 

X:90 

104 



Y:0 

16383 ] 



Y :96 

228 

DESCENT 


Z:0 

16383 j 



Z:90 

207 
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DAY 175 

EXTENDED BET SOURCE FILE NC0709 
AEROBET SOURCE FILE NF1206 


HiRAP S/N 001 


STS-08 


OEX FLIGHT SDC DATA TAPES 


TAPES 

SCIENCE 

HOUSEKEEP 

SCIENCE TIMES 

ST5237 

1. NU0229 
SCI081 

NU0271 

HSKP081 

DAY 242, ASCENT 
22921-24321 SEC. 
06:22:01-06:45:21 

ST5238 

2. NU0279 
SCI082 

NU0632 

HSKP082 

DAY 244, ORBIT 
25921-28297 SEC. 
07:12:01-07:51:37 

ST5239 

3. NU0705 
SCI083 

NV0276 

HSKP083 

DAY 248, DESCENT 
23581-27765 SEC. 
06:33:01-07:42:45 



DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

ACCELEROMETER 
COUNTS 
MIN. MAX. 

DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

COARSE 
TEMPER ATUr 
COUNTS 
MIN. MAX. 

SCI081 

238000 

X:0 

16383 l 

1 

HSKP081 

3719 

X:80 

109 



Y:0 

16383 l 

l 



Y:80 

no 

ASCENT 


Z:0 

16383 1 

l 



Z:82 

no 

SCI082 

405763 

X:0 

8573 l 

l 

HSKP082 

6339 

X:76 

173 



Y:256 

16270 l 

1 



Y:82 

125 

ORBIT 


Z:0 

9142 * 

1 



Z:75 

207 

SCI083 

723581 

X:0 

16383 1 

i 

HSKP083 

11305 

X:28 

131 



Y:0 

16383 



Y:27 

116 

DESCENT 


Z:0 

16383 i 



Z:29 

207 


DAY 248 

EXTENDED BET SOURCE FILE NC0709 
AEROBET SOURCE FILE NX0484 


STS-09 

HiRAP S/N 002 

(BEFORE RECALIBRATION) 


OEX FLIGHT 
TAPES 

SDC DATA TAPES 
SCIENCE HOUSEKEEP 

SCIENCE TIMES 

ST5340 

1. NT0838 
SCI091 

NT1010 

HSKP091 

DAY 342, ORBIT 
9021-10802 SEC. 
02:30:21-03:00:02 

ST5341 

2. S092 
SCI092 

NU0141 

HSKP092 

DAY 342, ORBIT 
11701-15012 SEC. 
03:15:01-04:10:12 

ST5342 

3. NU0171 
SCI093 

NU0204 

HSKP093 

DAY 342, DESCENT 
81361-82352 SEC. 
22:36:01-22:52:32 

ST5343 

4. NU0231 
SCI094 

NU0340 

HSKP094 

DAY 342, DESCENT 
82381-85802 SEC. 
22:53:01-23:50:02 



COARSE 


DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

ACCELEROMETER 
COUNTS 
MIN. MAX. 


DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

TEMPERATURE 
COUNTS 
MIN. MAX. 

SCI091 

307374 

X:7537 

13234 

1 

| 

HSKP091 

4809 

X:42 

247 



Y:4594 

16383 

l 

| 



Y:42 

234 

ORBIT 


Z:263 

10804 

1 

t 



Z:42 

237 

SCI092 

573000 

X:9782 

12615 

1 

| 

HSKP092 

8946 

X:99 

135 



Y:6348 

16383 

1 

| 



Y:97 

134 

ORBIT 


Z.2055 

16383 

1 

1 



Z:98 

135 

SCI093 

171391 

X:0 

13706 

1 

I 

HSKP093 

2677 

X:91 

119 



Y:4413 

11841 

I 

| 



Y:91 

118 

DESCENT 


Z:0 

11742 

1 

1 



Z:91 

118 

SCI094 

592449 

X:0 

16383 

1 

| 

HSKP094 

9258 

X:119 

146 



Y:0 

16383 

I 

| 



Y:118 

146 

DESCENT 


Z:0 

16383 

1 

_L- 



Z:118 

146 


EXTENDED BET SOURCE FILE NC0709 

AEROBET SOURCE FILE NL0701 


STS-41B 


HiRAP S/N 001 


OEX FLIGHT SDC DATA TAPES 


TAPES 

SCIENCE 

HOUSEKEEP 

SCIENCE TIMES 

ST5370 

1. NF0156 
SCI1 11 

NF0158 

HSKP111 

DAY 34, ASCENT 
45901-48002 SEC. 
12:45:01-13:20:02 

ST5371 

2. NF0203 
SCI112 

NF0205 

HSKP112 

DAY 37, ORBIT 
53722-55132 SEC. 
14:55:22-15:18:52 

ST5372 

3. NF0206 
SCI1 13 

NF0234 

HSKP113 

DAY 42, DESCENT 
40501-44512 SEC. 
11:15:01-12:21:52 



DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

ACCELEROMETER 
COUNTS 
MIN. MAX. 

DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

COARSE 
TEMPERATURE 
COUNTS 
MIN. MAX. 

SCI1 11 

365000 

X:0 

16383 

[ HSKP111 

5705 

X:76 

117 



Y:0 

16383 



Y:75 

120 

ASCENT 


Z:0 

16383 



Z:78 

118 

SCI1 12 

244000 

X:1036 

16376 

J HSKP112 

3823 

X:18 

55 



Y:12 

16383 



Y:18 

59 

ORBIT 


Z:4 

16383 



Z:20 

55 

SCI113 

697104 

X:0 

16383 

[ HSKP112 

10891 

X:28 

72 



Y:0 

16383 



Y:30 

72 

DESCENT 


Z:0 

16383 



Z:29 

73 


DAY 42 

EXTENDED BET SOURCE FILE NC0709 
AEROBET SOURCE FILE NF0349 


HiRAP S/N 001 

OEX FLIGHT 
TAPES 


STS-41C 

SDC DATA TAPES 

SCIENCE HOUSEKEEP SCIENCE TIMES 


ST5630 


1. NS0671 
SCI131 


NS0672 

HSKP131 


DAY 97, ASCENT 
49801-51422 SEC. 
13:50:01-14:17:02 



ST5631 

2. NS0680 
SCI132 

NS0813 

HSKP132 

DAY 99, ORBIT 
57011-60102 SEC. 
15:51:51-16:41:42 

ST5632 

3. NS0816 
SCI133 

NS0832 

HSKP133 

DAY 101. ORBIT 
48661-48842 SEC. 
13:31:01-13:34:02 

ST5633 

4. NS0846 
SCI134 

NS0909 

SCI134 

DAY 102, ORBIT 
31321-31462 SEC. 
08:42:01-08:44:22 

ST5634 

5. NT 1246 
SCI135 

NU0376 

HSKP135 

DAY 104, DESCENT 
44132-49372 SEC. 
12:15:32-13:42:52 



COARSE 


DIRECT 

NUMBER 

ACCELEROMETER 

DIRECT 

NUMBER 

TEMPERATURE 

ACCESS 

OF 

COUNTS 

ACCESS 

OF 

COUNTS 

FILE 

POINTS 

MIN. 

MAX. 

FILE 

POINTS 

MIN. 

MAX. 

SCI131 

282000 

X:0 

11513 J 

HSKP131 

4403 

X:75 

104 



Y:0 

16383 



Y:75 

107 

ASCENT 


Z:0 

16383 



Z:76 

209 

SCI 132 

516000 

X:65 

13970 | 

HSKP132 

8070 

X:71 

108 



Y:3 

16328 j 



Y:76 

114 

ORBIT 


Z:0 

16383 j 



Z:72 

107 

SCI133 

24447 

X:5286 

11950 j 

HSKP133 

381 

X:49 

53 



Y:5070 

10962 ] 



Y :51 

56 

ORBIT 


Z:0 

12747 j 



Z:50 

54 

SCI 134 

23551 

X:0 

11282 | 

HSKP134 

367 

X:91 

94 



Y:5252 

11046 J 



Y:96 

99 

ORBIT 


Z:2862 

11719 



Z:91 

94 

SCI 135 

911020 

X:0 

16383 

HSKP135 

14236 

X:59 

243 



Y:0 

16383 



Y :61 

205 

DESCENT 


Z:1 

16383 ; 



Z:59 

207 










DAY 104 

EXTENDED BET SOURCE FILE NC0709 

AEROBET SOURCE FILE NC0740 


STS-51B 


HiRAP S/N 001 


OEX FLIGHT SDC DATA TAPES 


TAPES 

SCIENCE 

HOUSEKEEP 

SCIENCE TIMES 

.JH51B8 

1. NM0236 
SCI241 

NM0323 

HSKP241 

DAY 119, ASCENT 
57241-58762 SEC. 
15:54:01-16:19:22 

JH51B9 

2. NC0533 
SCI242 

NC0805 

HSKP242 

DAY 120, ORBIT 
7381-7842 SEC. 
02:03:01-02:10:42 

JH5B10 

3. ND1215 
SCI243 

ND1218 

HSKP243 

DAY 120, ORBIT 
80461-80941 SEC. 
22:21:01-22:29:01 

JII5B11 

4. ND1219 
SCI244 

ND1237 

SCI244 

DAY 126, DESCENT 
53450-56917 SEC. 
14:50:01-15:48:37 

JH5B12 

5. NK0659 
SCI245 

NL0257 

HSKP245 

DAY 126, DESCENT 
56911-57962 SEC. 
15:48:01-16:06:02 


DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

ACCELEROMETER 
COUNTS 
MIN. MAX. 

DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

COARSE 
TEMPERATURE 
COUNTS 
MIN. MAX. 

SCI 241 

264371 

X:0 

1040 l 

l 

HSKP241 

4130 

X:86 

117 



Y:0 

16383 1 

l 



Y :86 

120 

ASCENT 


Z:0 

16383 1 

l 



Z:88 

117 

SCI242 

71422 

X:6208 

11736 1 

1 

HSKP242 

1115 

X.127 

135 



Y:234 

11213 l 

l 



Y: 131 

139 

ORBIT 


Z:6570 

12244 1 

1 



Z:128 

135 

SCI243 

81599 

X:9020 

9142 I 

l 

HSKP243 

1274 

X:137 

142 



Y:8265 

8559 



Y:143 

148 

ORBIT 


Z:9394 

9683 

1 



Z:136 

141 

SCI244 

593479 

X:0 

16383 j 

HSKP244 

9412 

X:28 

85 



Y:0 

16383 



Y:28 

90 

DESCENT 


Z:0 

16383 



Z:30 

204 

SCI245 

182591 

X: 16383 

16383 

HSKP245 


X: 




Y:0 

16383 j 



Y: 


DESCENT 


Z: 16383 

16383 1 



Z: 




DAY 

EXTENDED BET SOURCE FILE 
AEROBET SOURCE FILE 


126 

NC0709 

NN1264 


STS-51F 

HiRAP S/N 002 
(RECALIBRATED) 

OEX FLIGHT SDC DATA TAPES 

TAPES SCIENCE HOUSEKEEP SCIENCE TIMES 


JH5F14 

1. NY0338 
SCI261 

JH5F15 

2. NY0340 

SCI262 

JH5F16 

3. NY0342 

SCI263 

JH5F17 

4. NY0344 

SCI264 


NY0449 

HSKP261 

DAY 210, ASCENT 
75181-76692 SEC. 
20:53:01-21:18:12 

NY0341 

HSKP262 

DAY 213, ORBIT 
5401-6057 SEC. 
01:30:01-01:40:57 

NY0343 

HSKP263 

DAY 218, DESCENT 
67021-68702 SEC. 
18:37:01-19:05:02 

NY0345 

HSKP264 

DAY 218, DESCENT 
68697-69600 SEC. 
19:04:57-19:20:00 


COARSE 


DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

ACCELEROMETER 
COUNTS 
MIN. MAX. 

DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

TEMPERATURE 
COUNTS 
MIN. MAX. 

SCI261 

241000 

X:0 

16383 

1 

| 

HSKP261 

3774 

X:96 

130 



Y:0 

16383 

! 

| 



Y:51 

129 

ASCENT 


Z:0 

16383 

1 

1 



Z:104 

216 

SCI262 

110590 

X:0 

12190 

1 

I 

HSKP262 

1727 

X: 108 

116 



Y:6845 

16064 

1 

| 



Y:106 

114 

ORBIT 


Z:0 

10216 

1 

1 



Z:107 

116 

SCI263 

290532 

X:0 

16094 

1 

1 

HSKP263 

4550 

X:83 

100 



Y:1552 

16383 

1 

| 



Y :81 

98 

DESCENT 


Z:0 

15356 

1 

i 



Z:82 

215 

SCI264 

156087 

X:0 

16383 

1 

I 

HSKP264 

2454 

X:99 

107 



Y:0 

16383 

! 



Y:97 

106 

DESCENT 


Z:0 

16383 

1 

L 


Z:98 

107 


DAY 

EXTENDED BET SOURCE FILE 


218 
N CO 709 


AEROBET SOURCE FILE 


NP1083 


STS-61A 

HiRAP S/N 002 
(RECALIBRATED) 


OEX FLIGHT SDC DATA TAPES 

TAPES SCIENCE HOUSEKEEP SCIENCE TIMES 


JH6A15 1. NM1180 

SCI301 


JH6A16 2. NM1271 

SCI302 


JH6A17 3. NM1065 

SCI303 


JHGA18 4. NS0818 

SCI304 


JH6A19 5. NA0160 

SCI305 


JH6A20 6. NH1067 

SCI306 


JH6A21 7. NH1215 

SCI307 

Axes X and Z are pegged for 
this entire channel. 


NM1267 

HSKP301 

DAY 303, ASCENT 
60661-64137 SEC. 
16:51:01-17:47:57 

NN0129 

HSKP302 

DAY 303, ORBIT 
85021-492 SEC. 
23:37:01-00:08:12 

NS0628 

HSKP303 

DAY 304, ORBIT 
23161-25552 SEC. 
06:26:01-07:05:52 

NS0844 

HSKP304 

DAY 309, ORBIT 
78301-880277 SEC. 
21:45:01-22:17:52 

NA0260 

HSKP305 

DAY 310, ORBIT 
27601-30022 SEC. 
07:40:01-08:20:22 

NH1155 

HSKP306 

DAY 310, DESCENT 
59122-62482 SEC. 
16:25:22-17:21:22 

NM1216 

HSKP307 

DAY 310, DESCENT 
62461-64132 SEC. 
17:21:01-17:48:52 


COARSE 


DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

ACCELEROMETER 
COUNTS 
MIN. MAX. 

DIRECT 

ACCESS 

FILE 

NUMBER 

OF 

POINTS 

TEMPERATURE 
COUNTS 
MIN. MAX. 

SCI301 

604000 

X:0 

13556 I 

HSKP301 

9442 

X:79 

138 



Y:0 

16383 



Y:79 

215 

ASCENT 


Z:0 

16383 



Z:79 

217 

SCI302 

318271 

X:2184 

4253 

HSKP302 

4972 

X:143 

178 



Y:7117 

12832 



Y:142 

186 

ORBIT 


Z:2087 

4129 i 

i 



Z:142 

217 



SCI303 

408000 

X:3769 

9084 

1 

| 

HSKP303 

6376 

X:249 

254 



Y:5734 

13944 

1 

| 



Y:248 

254 

ORBIT 


Z:2915 

8174 

1 

1 



Z:249 

254 

SCI304 

340991 

X:0 

3635 

I 

| 

HSKP304 

5327 

X:79 

101 



Y:2020 

12108 

1 

| 



Y:77 

99 

ORBIT 


Z:1635 

5347 

1 

J 



Z:78 

101 

SCI305 

420799 

X:2009 

3931 

1 

| 

HSKP305 

6574 

X:102 

128 



Y:6742 

9997 

t 

| 



Y:100 

127 

ORBIT 


Z:1048 

4455 

1 

J_ 



Z: 101 

128 

SCI306 

584239 

X:0 

16383 

1 

| 

HSKP306 

9129 

X:52 

153 



Y:0 

16383 

1 

| 



Y:59 

153 

DESCENT 


Z:0 

16383 

i 

[_ 



Z: 121 

215 

SCI307 

287871 

X:0 

16383 

1 

j 

HSKP307 

4497 

X:148 

154 



Y:0 

16383 

1 

| 



Y:148 

153 

DESCENT 


Z: 16383 

16383 

1 

[_ 



Z:147 

154 


DAY 310 

EXTENDED BET SOURCE FILE NC0709 
AEROBET SOURCE FILE NY1721 


STS-61C 

HiRAP S/N 001 
(RECALIBRATED) 

OEX FLIGHT SDC DATA TAPES 

TAPES SCIENCE HOUSEKEEP SCIENCE TIMES 


Files 32xS and 32xH have no header and are archived on 882817C. 


JHDT01 

1 . 

321S 

SCI321 

JHDT02 

2. 

322S 

SCI322 

JHDT03 

3. 

323S 

SCI323 

JH6C13 

4. 

324S 

SCI324 


321H 

HSKP321 

DAY 15, ORBIT 
30311-32851 SEC. 
08:25:11-09:07:31 

322H 

HSKP322 

DAY 16, ORBIT 
59363-61017 SEC. 
16:29:23-16:56:57 

323H 

HSKP323 

DAY 17, ORBIT 
55246-56473 SEC. 
15:20:46-15:41:13 

324H 

HSKP324 

DAY 18, DESCENT 
45818-47737 SEC. 
12:43:38-13:15:37 
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JH6C13 


5. 325S 325H 

SCI325 HSKP325 


DAY 18, DESCENT 
47747-48429 SEC. 
13:15:47-13:27:09 


JHGC13 


6. 326S 326H 

SCI326 HSKP326 


DAY 18, DESCENT 
48371-49000 SEC. 
13:26:1 1-13:36:40 


COARSE 


DIRECT 

NUMBER 

ACCELEROMETER 


DIRECT 

NUMBER 

TEMPERATURE 

ACCESS 

OF 

COUNTS 


ACCESS 

OF 

COUNTS 

FILE 

POINTS 

MIN. 

MAX. 


FILE 

POINTS 

MIN. 

MAX. 

SCI321 

280975 

X:6462 

16383 

1 

1 

HSKP321 

4454 

X:29 

82 



Y:5715 

16383 

1 

1 



Y:28 

88 

ORBIT 


Z:0 

16383 

1 

1 



Z:31 

83 

SCI322 

183615 

X:0 

16383 

1 

1 

HSKP322 

2910 

X:5* 

101 



Y:0 

16383 

l 

1 



Y:5* 

108 

ORBIT 


Z:0 

16383 

l 

i 



Z:5* 

102 

SCI323 

136095 

X:0 

16383 

i 

I 

HSKP323 

2157 

X:5* 

132 



Y:0 

16383 

1 

1 



Y :5* 

139 

ORBIT 


Z:0 

16383 

1 

1 



Z:5* 

132 

SCI324 

213263 

X:0 

12803 

1 

l 

HSKP324 

3375 

X:144 

160 



Y:3334 

11835 

l 

1 



Y: 151 

167 

DESCENT 


Z:0 

16383 

1 



Z:145 

160 

SCI325 

77000 

X:6703 

12613 

i 

1 

HSKP325 

1199 

X:159 

165 



Y:0 

16383 

l 

1 



Y:1G6 

172 

DESCENT 


Z:() 

16383 

I 

_L_ 



Z:159 

166 

SCI326 

71000 

X:8762 

16383 

1 

1 

HSKP326 

1104 

X: 164 

169 



Y:2059 

16383 

1 

1 



Y: 171 

175 

DESCENT 


Z:0 

16383 

1 

i 



Z:164 

170 


*HSKP322: THESE LOW COUNTS OCCUR DURING LAST 30 SECONDS OF FILE 
ONLY, OTHERWISE: XMIN=81, YMIN=87, ZMIN=83 COUNTS. 

*HSKP323: LAST 10 SECONDS ONLY, OTHERWISE: XMIN=118, YMIN=124, 
XMIN=119 COUNTS. 

DAY 18 

EXTENDED BET SOURCE FILE NC0709 
AEROBET SOURCE FILE NG1083 


26 



Appendix B 

Orbiter Descent Event Times 


Event 

Altitude, km 

Time, sec 

STS- 06 


Time blanked out for APU shift 

2 19 to 2,39 

65 390 to 65 470 

Deorbit burn 

249 to 291 

6 1 90 to 64 650 

Pitch maneuver 

291 to 281 

25 to 65 000 

X-axis saturation 

85 

66447 

Z-axis saturation 

100 

66 311 

XBET epoch 

289 

64 510 

ABET epoch 

123 

66 200 

STS-07 


Time blanked out for APU shift 

253 to 239 

47 520 to 47625 

Deorbit burn 

295 to 297 

46 560 to 46 730 

Pitch maneuver 

298 to 295 

46 800 to 47060 

X-axis saturation 

84 

48 605 

Z-axis saturation 

97 

18 520 

XBET epoch 

295 

46 560 

ABET epoch 

208 

47 840 

STS-08 

Time blanked out for APU shift 

210 to 207 

25 035 to 25 08b 

Deorbit burn 

219 to 220 

24 440 to 24 610 

Pitch maneuver 

220 to 21 1 

24 700 to 25020 

X-axis saturation 

81 

26 086 

Z-axis saturation 

98 

25 988 

XBET epoch 

21 9 

24 450 

ABET epoch 

187 

25 310 

STS-09 

Time blanked out for APU shift 

217 to 214 

82 950 to 82 990 

Dcorbit burn 

240 to 238 

82 320 to 82 480 

Pitch maneuver 

236 to 214 

82 600 to 82 990 

X-axis saturation 

85 

84 016 

Z-axis saturation 

97 

83 935 

XBET epoch 

240 

82 320 

ABET epoch 

161 

83 843 

STS-41B 



Time blanked out for APU shift 

236 to 233 

41 534 to 41 559 

Deorbit burn 

276 to 277 

40 560 to 40 750 

Pitch maneuver 

278 to 271 

40850 to 41 120 

X-axis saturation 

82 

42574 

Z-axis saturation 

97 

42474 

XBET epoch 

276 

40 570 

ABET epoch 

252 

41 380 


Event 

Altitude, km 

Time, sec 

STS-41C 

Time blanked out for APU shift 

319 to 313 

46 495 to 46 520 

Deorbit burn 

500 to 505 

44 960 to 45 220 

Pitch maneuver 

506 to 500 

45300 to 45500 

X-axis saturation 

90 

47480 

Z-axis saturation 

99 

47396 

XBET epoch 

500 

44 600 

ABET epoch 

213 

46890 

STS-51B 

Time blanked out for APU shift 

288 to 260 

55 575 to 55 725 

Deorbit burn 

357 to 364 

54 280 to 54 570 

Pitch maneuver 

365 to 362 

54 658 to 54 887 

X-axis saturation 

85 

56627 

Z-axis saturation 

98 

56 540 

XBET epoch 

357 

54 282 

ABET epoch 

123 

56400 

STS-51F 

Time blanked out for APU shift 

255 to 250 

68 525 to 68 555 

Deorbit burn 

321 to 324 

67382 to 67552 

Pitch maneuver 

325 to 322 

67690 to 67851 

X-axis saturation 

79 

69 553 

Z-axis saturation 

92 

69440 

XBET epoch 

321 

67372 

ABET epoch 

123 

69 260 

STS-61A 

Time blanked out for APU shift 

267 to 264 

61 220 to 61 240 

Deorbit burn 

334 to 338 

60030 to 60 200 

Pitch maneuver 

340 to 339 

60 269 to 60504 

X-axis saturation 

79 

62 276 

Z-axis saturation 

93 

62 167 

XBET epoch 

334 

60 022 

ABET epoch 

121 

62 000 

STS-61C 

Time blanked out for APU shift 

261 to 257 

47 700 to 47 725 

Deorbit burn 

328 to 332 

46472 to 46 704 

Pitch maneuver 

334 to 329 

46815 to 47065 

X-axis saturation 

84 

48711 

Z-axis saturation 

97 

48625 

XBET epoch 

328 

46 462 

ABET epoch 

210 

48000 
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Appendix C 

Conversion of Temperature Counts to 
Temperature 

The algorithms used to convert temperature 
counts into temperature for each sensor are presented 
in this appendix. Temperature constants of the al- 
gorithms are unique for every sensor and for every 
calibration of the sensor. Also, some of the methods 
vary between calibrations. The procedure that per- 
tains to S/N 001 and S/N 002 (prior to modification) 
is based on reference 14. Refer to each subsequent 
section for additional information pertaining to Hi- 
RAP S/N 001 (prior to modification) and to HiRAP 
S/N 001 and S/N 002 (after modification). The rest 
of this appendix is extracted from references 9, 14, 
15, and 16 with modifications as necessary. 


K f fine monitor scale factor (from 

table Cl for each sensor), V/°F 

temperature for zero volts in fine 
range M (from table Cl for each 
sensor), °F 

INT integral part of 

Then 

T c = e 1 + V c /K c 
M = INT(0.5 + 1.6 Vc) 

Fine range number is either M or M - 1-1. If M = 0, 
use 1. If M +1=9, use D. Compute 

Tm = 9m + V f /K f 


From reference 14: The algorithms and lookup ta- 
ble given in the first part of this appendix are derived 
from data supplied by Bell Aerospace Textron for Hi- 
RAP S/N 002. It is assumed that the characteristics 
of the HiRAP S/N 001 sensors will be roughly similar 
to those of the S/N 002 sensors and that the same 
algorithms will be used with appropriate new entries 
in the lookup tables. 


and 

Tm + 1 = 0M+1 + Vf/K F 

Compare and Tm + l with If ani ^ select which- 
ever is within about ±0.5°F of T c as the correct value 
of Tp. A minimum difference significantly greater 
than ±0.5°F should be noted as an indication of pos- 
sible changes in the coarse and/or fine temperature 
calibrations. 


The coarse ranges of the HiRAP coarse-fine 
temperature monitors cover approximately 23°F to 
152°F, with small variations between sensors. The 
eight fine ranges of each sensor each cover about 
17.65°F, with overlaps of 1.6°F to 2.4°F. At some 
temperatures two fine outputs are possible, depend- 
ing upon which fine range has been selected. There 
is no indication in the HiRAP housekeeping channels 
as to which fine range to use, but reference to the 
coarse output can resolve the ambiguity. The sim- 
plest approach is to compute the two possible fine 
temperatures and then select whichever is closest to 
the coarse temperature. Since the correct fine tem- 
perature should always be within about ±0.5°F of 
the coarse temperature, and the incorrect fine tem- 
perature should always be about ±17 F different, 
there is no possibility of selecting the wrong value. 


Table Cl. Temperature Correction 
for HiRAP S/N 002 

(a) X-axis 

K C ,V/°F 

k f .v/° f 

0 M , °F: 

M = 1 

M = 2 

M = 3 

M = 4 

M = 5 

M = 6 

M = 7 

M = 8 


(b) T-axis 


X C ,V7°F 



coarse temperature monitor voltage 

L/ 7 / 

k f ,v/°f 

V F 

fine temperature monitor voltage 

°F: 
M = 1 

T C 

coarse temperature, °F 

M = 2 

t f 

final (correct) fine temperature, °F 

M = 3 

t m ,t m+ 1 

candidate fine temperatures, °F 

II II 

M 

fine range serial number, 1 to 8 

M = 6 

Kc 

coarse monitor scale factor (from table 
Cl for each sensor), V j ° F 

M = 7 
M = 8 


Constants 


0.03910 

0.28257 

. 23.68 
. 39.45 

. 55.22 

. 71.10 

. 86.97 

102.44 
117.90 
133.71 


0.03891 

0.28347 


23.57 

38.83 

54.10 

70.31 

86.52 

102.32 

118.13 

134.17 
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Table Cl. Concluded 


(c) Z-axis 


Ac 

V/°F 

0.03904 

Ay, 

V/°Y 

0.28254 

0M< 

°F: 


M 

- 1 .... 

23.86 

M 

= 2 

39.50 

M 

=3 .... 

55.15 

M 

= 4 .... 

70.84 

M 

= 5 

86.53 

M 

= 6 

102.36 

M 

= i 

118.20 

M 

= 8 

134.15 


From reference 9: The method of calculating 

temperatures [for S/N 001 (prior to modification)] is 
the same as that described in reference 14, except for 
one minor difference. From reference 14 the equation 
for calculating the coarse temperature is 

Tc = 9] - b Vp/Kp 

This equation is modified to 

T c = 9c + V c /K c 

where the relevant values of Op are given along with 
&C' &F' an( l 9,\i in tables C2. The reason for the 
change is that the constant in one best-fit equation 
for Tp has been found to differ from 9\ by more than 
0*1 °F, although in a perfect system they should be 
identical. 

Table C2. Correction Constants for 
HiRAP S/N 001 


(a) .Y-axis 

K CU Vy°F 0.04096 

K f . Vy°F 0.29417 

e CU °F 30.70 

0\I, °F: 

AI = 1 30.56 

V = 2 45.74 

M — 3 (“halfway 11 range) 60.75 

Ar = 4 75.76 

AI = 5 90.83 

M = 6 105.56 

M - 7 ( “halfway” range) 120.57 

AI = 8 135.57 


(b) T-axis 

A' r , V'/°F 0.04089 

K F. vy°F 0.29420 

Hu °F 29.98 


Table C2. Concluded 
(b) Concluded 

Hi- °F : 

M = 1 29.92 


M = 3 ( “halfway” range) 60.03 

M = 4 75.02 

A/ = 5 90.19 

A/ = 6 105.11 

M = 7 (“halfway” range) 120.07 

A/ = 8 135.04 

(c) Z-axis 

K c. v /° ¥ 0.04073 

K F. F/°F 0.29275 

Hu °F 29.91 

Hi. °F: 

M = 1 ■ • 29.99 

M = 2 (“halfway” range) 44.97 

M = 3 59.95 

M ~ 4 (“halfway” range) 75.06 

A/ = 5 90.17 

M = 6 ( “halfway” range) 105.32 

M = 7 120.47 

AI = 8 135.42 


From reference 12: In reference 15, bias was 

treated as a function of the corrected coarse tem- 
perature monitor (CTM) voltage rather than as a 
function of temperature, as was the case in all previ- 
ous calibrations of HiftAP s. The same procedure? is 
followed here. 

A best-fit temperature versus CTM voltage (or 
corrected CTM voltage) function is included in the 
data sheet for each axis, but it is not required for the 
computation of bias. 

The following is the method of calculating effec- 
tive temperature monitor voltage. This is unchanged 
from reference 15. Because each of the eight fine tem- 
perature ranges overlaps its neighbor’s there may be 
an ambiguity to be resolved. Let 


V C 

coarse temperature monitor voltage 

V F 

fine temperature monitor voltage 

Vc 

final (corrected) temperature monitor 
voltage 

M 

fine range serial number, 1 to 8 

G 

slope (gain) of Vp relative to Vp 

Vm 

value of Vp corresponding to 0 V in 
fine range M 

1NT 

integral part of 
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Then 


M = INT(0.5 + l.eV c ) 

Fine range number is either M or (M +1)- If M = 0, 
use 1. If {M + 1) = 9, use 8. Compute 

V c \ = V M + Vp/G 


and 

V(-l = Vm+ l + Vf/g 

Compare Vc\ mid with l . and choose which- 
ever is the closest as the value of V/ to be used 
in computing bias — one value will always be much 
closer than the other, so there will be no possibility 
of an incorrect choice. 

The appropriate values of G and V\j are given in 
tables C3 and C4. For each sensor axis the value 
of G is given as a constant, since there were no 
significant variations with temperature. The worst- 
case deviations from the mean values would produce 
an error of less than 0.2 pg in the estimated bias. 

Table C3. Temperature Monitor Constants 
for S/N 001 After Recall brat ion 

(a) X-axis 

From pp. 28, 60, 61, and 62 of ref. 15; 

G = 7' 181 ± 0.005 


M 

Va/, V 

1 

-0.0014 

2 

.6127 

3 

1.2268 

4 

1.8407 

5 

2.4547 

6 

3.0685 

7 

3.6823 

8 

4.2963 


(b) X-axis 

'From pp. 31, 64, 65, and 66 of ref. 15; 
G = 7.186 ±0.003 


M 

V M , V 

1 

0.0000 

2 

.6142 

3 

1.2283 

4 

1.8424 

5 

2.4564 

6 

3.0704 

7 

3.6843 

8 

4.2981 


Table C3. Concluded 


(c) Z-axis 


From pp. 34, 68, 69, and 70 of ref. 15; 

G = 7.192 ± 0.004 

M 

V M .V 

1 

-0.0002 

2 

.6140 

3 

1.2281 

4 

1.8424 

5 

2.4566 

6 

3.0705 

7 

3.6845 

8 

4.2984 


Table C4. Temperature Monitor Constants 
for S/N 002 After Recalibration 

(a) X-axis 

[From ref. 16; G 7.221 ± 0.020] 


M 

Va/, V 

1 


2 

0.6158 

3 

1.2302 

4 

1.8463 

5 

2.4609 

6 

3.0759 

7 

3.6912 

8 

4.3047 


(b) Y-axis 

[From ref. 16; G = 7.1787 ± 0.0038] 


M 

Vm, v 

1 


2 

0.6145 

3 


4 


5 

2.4582 

6 

3.0729 

7 

3.6875 

8 

4.3021 










Appendix D 

Data Tape Volume Serial Number (VSN) Identifiers of RCS Chamber Pressure Tapes 
and RCS Zero Reference Values 

STS-06 Thrust Removal 

RCS Pressure Data Tape: VSN = NE0927 

Zero Reference Values used in program THRUST to determine 
thrustor firing times: 

ZERO( 5) = 1.6 
ZERO( 6) = 0.8 
ZERO( 7) = 0.8 
ZERO(IO) = 0.8 
ZERO(12) = 0.8 
ZERO(22) = 0.8 
ZERO(28) = 0.8 
ZERO(31) = 2.4 
ZERO(38) = 0.8 
ZERO(40) = 0.8 
ZERO(42) = 0.8 
ZERO(44) = 0.8 


Lag Times used in Thrust: 

TLAG = 0.04 
TLAG1 = 0.80 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 
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STS-07 Thrust Removal 

RCS Pressure Data Tape: VSN = NL1187 


Zero Reference Values used in 
thrustor firing times: 

ZERO( 5) = 1.6 
ZERO(IO) = 0.8 
ZERO( 12) = 1.6 
ZERO( 14) = 0.8 
ZERO(2 1 ) = 0.8 
ZERO(22) = 0.8 
ZERO(31) = 2.4 
ZERO(38) = 1.6 
ZERO(40) = 0.8 
ZERO(42) = 1.6 
ZERO(44) = 0.8 


program THRUST to determine 


Lag Times used in Thrust: 

TLAG = 0.04 
TLAG1 = 0.80 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 
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STS-08 Thrust Removal 

RCS Pressure Data Tape: VSN = NH0732 


Zero Reference Values used in 
thrustor firing times: 

ZERO( 5) = 1.7 
ZERO( 6) = 0.8 
ZERO( 7) = 0.8 
ZERO( 8) = 0.8 
ZERO( 9) = 0.8 
ZERO(IO) = 0.8 
ZERO(12) = 0.8 
ZERO(14) = 0.8 
ZERO(21) = 0.8 
ZERO(22) = 0.8 
ZERO(28) = 0.8 
ZERO(3 1 ) = 2.4 
ZERO(38) = 0.8 
ZERO(40) = 0.8 
ZERO(42) = 0.8 
ZERO(44) = 0.8 


program THRUST to determine 


Lag Times used in Thrust: 

TLAG = 0.04 
TLAG1 = 0.80 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG 1 


STS-09 Thrust Removal 

RCS Pressure Data Tape: VSN = NCI 260 


Zero Reference Values used in program THRUST to determine 
thrustor firing times: 


ZERO( 4) = 0.8 
ZERO( 5) = 0.8 
ZERO(IO) = 0.8 
ZERO(13) = 0.8 
ZERO(16) = 0.8 
ZERO(20) = 0.8 
ZERO(21) = 0.8 
ZERO(23) = 1.6 
ZERO(24) = 1.6 
ZERO(27) = 0.8 
ZERO(29) = 0.8 
ZERO(30) = 1.6 
ZERO(32) = 0.8 
ZERO(33) = 0.8 
ZERO(35) = 0.8 
ZERO(37) = 0.8 
ZERO(38) = 0.8 
ZERO(40) =1.6 
ZERO(4 1 ) = 0.8 
ZERO(42) = 1.6 
ZERO(44) = 0.8 


Lag Times used in Thrust: 

TLAG = 0.04 
TLAG1 = 0.80 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 
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STS-41B Thrust Removal 

RCS Pressure Data Tape: VSN = NT0106 

Zero Reference Values used in program THRUST to determine 
thrustor firing times: 

ZERO( 5) = 1.6 
ZERO(IO) = 0.8 
ZERO(12) = 1.6 
ZERO(14) = 0.8 
ZERO(21) = 0.8 
ZERO(22) = 0.8 
ZERO(31) = 2.4 
ZERO(38) = 1.6 
ZERO(40) = 0.8 
ZERO(42) = 1.6 
ZERO(44) = 0.8 


Lag Times used in Thrust: 

TLAG = 0.04 
TLAG1 = 0.80 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 
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STS-41C Thrust Removal 

RCS Pressure Data Tape: VSN = NS1149 


Zero Reference Values used in 
thrustor firing times: 

ZERO( 5) = 1.6 
ZERO(IO) = 0.8 
ZERO(12) = 0.8 
ZERO(21) = 0.8 
ZERO(26) = 0.8 
ZERO(27) = 0.8 
ZERO(28) = 0.8 
ZERO(30) = 0.8 
ZERO(38) = 0.8 
ZERO(40) = 0.8 
ZERO(42) = 1 .6 
ZERO(44) = 0.8 


program THRUST to determine 


Lag Times used in Thrust: 

TLAG = 0.04 
TLAG1 = 0.80 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 
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STS-51B Thrust Removal 

RCS Pressure Data Tape: VSN = NE1020 


Zero Reference Values used in program THRUST to determine 
thrustor firing times: 

ZERO( 5) = 1.6 
ZERO( 6) = 0.8 
ZERO(IO) = 0.8 
ZERO(12) = 0.8 
ZERO(21) = 0.8 
ZERO(22) = 1.6 
ZERO(25) = 0.8 
ZERO(31) = 2.4 
ZERO(39) = 0.8 
ZERO(42) = 1.6 


Lag Times used in Thrust: 

TLAG = 0.04 
TLAG1 = 0.80 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 


STS-51F Thrust Removal 

RCS Pressure Data Tape: VSN = NF0565 


Zero Reference Values used in 
thrustor firing times: 

ZERO( 5) = 1.6 
ZERO( 6) = 0.8 
ZERO( 7) = 0.8 
ZERO(IO) = 0.8 
ZERO(12) = 1.6 
ZERO(21) = 0.8 
ZERO(22) = 1.6 
ZERO(23) = 0.8 
ZERO(25) = 0.8 
ZERO(31) = 2.4 
ZERO(42) = 0.8 


program THRUST to determine 


Lag Times used in Thrust: 

TLAG = 0.04 
TLAG1 = 0.80 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 
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STS-61 A Thrust Removal 

RCS Pressure Data Tape: VSN = NJ0978 


Zero Reference Values used in 
thrustor firing times: 

ZERO( 5) = 1.6 
ZERO( 6) = 0.8 
ZERO( 8) = 0.8 
ZERO(IO) = 0.8 
ZERO(12) = 1.6 
ZERO(21) = 0.8 
ZERO(22) = 0.8 
ZERO(23) = 0.8 
ZERO(25) = 0.8 
ZERO(3 1 ) = 2.4 
ZERO(35) = 1.6 
ZERO(36) = 0.8 
ZERO(39) = 0.8 
ZERO(42) = 0.8 
ZERO(43) = 1.6 


program THRUST to determine 


Lag Times used in Thrust: 

TLAG = 0.84 
TLAG1 = 0.96 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 


STS-61C Thrust Removal 

RCS Pressure Data Tape: VSN = NH0153 


Zero Reference Values used in program THRUST to determine 
thrustor firing times: 


ZERO( 5) = 0.8 
ZERO( 6) = 0.8 
ZERO( 8) = 0.8 
ZERO( 9) = 0.8 
ZERO(12) = 0.8 
ZERO(13) = 0.8 
ZERO(14) = 0.8 
ZERO(15) = 0.8 
ZERO(16) = 0.8 
ZERO(20) = 0.8 
ZERO(21) = 0.8 
ZERO(24) = 0.8 
ZERO(25) = 0.8 
ZERO(41) = 0.8 
ZERO(42) = 0.8 


Lag Times used in Thrust: 

TLAG = 0.08 
TLAG1 = 0.96 

Data intervals of thrustor activity removed: 
Thrust Start = Firing Time - TLAG 
Thrust Stop = Firing Time + TLAG1 
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Appendix E 

Orbiter Weight at Entry and Center-of-Gravity Locations 


Flight 

Weight at 
entry interface, lb 

Center of gravity, in., at entry interface along 

X-axis 

F-axis 

Z-axis 

STS-06 

191384.0 

1101.2 1 

0.3 

371.5 

STS-07 

204 983.0 

1091.3 

-.6 

373.3 

STS-08 

205 020.0 

1091.5 

-.1 

373.5 

STS-09 

221 143.4 

1087.3 

-.1 

373.7 

STS-41B 

202966.5 

1090.7 

1.3 

372.6 

STS-41C 

198152.8 

1101.5 

-.1 

371.6 

STS-51B 

214 787.4 

1085.7 

— .3 

373.4 

STS-51F 

218227.4 

1082.3 

-.6 

373.4 

STS-61A 

215255.4 

1085.5 

-.4 

374.2 

STS-61C 

211 194.4 

1085.2 

.4 

371.4 




Appendix F 

Ground Calibration Procedure 

Each sensor is calibrated before its delivery, prior 
to installation, and again after the sensor is repaired 
or modified. The purpose of the calibration is to eval- 
uate the bias and bias slope of the instrument with 
change in temperature. The calibration also evalu- 
ates the change of scale factor with temperature. The 
basic procedure of the calibration is described in the 
following sections, which are from reference 14 with 
some modification. 

Temperature Correction of Accelerometer 

Scale Factor 

The scale factors for each HiRAP sensor are de- 
termined at five temperatures, nominally 30°F, 60°F, 
90°F, 120°F, and 150°F. In practice, the actual cali- 
bration temperatures may differ by up to ±5°F from 
the nominals. The method of finding the scale fac- 
tor used in processing HiRAP data is to calculate the 
fine temperature Tp, as described in appendix B. Let 

r reference temperature serial num- 

ber, from 1 to 5 

T r reference temperature at serial r, °F 

K r scale factor at serial r, V/rn g 

h T. r scale factor temperature coefficient 

from r to r + 1, (V /mg) /°F 

All these quantities appear in the lookup tables given 
in the calibration reports for each particular sensor 
(refs. 9, 12, 15, and 17). 

The procedure is to step r from 1 to 4 until Tp 
lies between T r and T r +\. The corrected scale factor 
K is then given by 

K = K r 4- (Tp — T r )Ap r V/r ng 

Temperature Correction of Accelerometer 

Bias 

The bias of each HiRAP sensor can be as much 
as ±1 m g, with slow drifts over time as well as over 
temperature. The only way of obtaining measure- 
ments during entry that are accurate to ±10 pg or 
better is to record the sensor’s output and its tem- 
perature during a quiet period in orbit shortly be- 
fore entry and then, with this treated as the datum, 
compute the bias shifts due to subsequent changes in 
temperature. 

The bias of each sensor is measured at the same 
five temperatures as the scale factor, but the absolute 


values are of no interest, only the differences over 
each temperature interval. To correct bias during 
flight data processing, the difference in calibration 
bias from the nominal 30°F value is recorded in the 
lookup tables given in the calibration reports for 
each sensor (refs. 9, 12, 15, and 17), along with the 
bias temperature coefficient over each temperature 
interval. The bias changes relative to the 30° F value 
are computed for the datum on-orbit temperature 
and the particular entry temperature, the difference 
between these two being the required bias correction 
for temperature. 

Let 

r reference temperature serial number, 

1 to 5 

T r reference temperature at serial r, °F 

B r bias at serial r relative to nominal 
30°F value, pg 

Bp r bias temperature coefficient over 

interval from serial r to r -f 1, 

{Br + 1 — B r ){T r + 1 — T r ), pg 

The above quantities appear in the lookup tables 
given in the calibration reports for each particular 
sensor. 

Also define the following: 

Tp q datum on-orbit fine temperature, °F 

T p i entry fine temperat ure, °F 

Bq bias at TpQ relative to nominal 30°F 
value, pg 

B\ bias at Tp \ relative to nominal 30° F 
value, pg 

A Bq bias change from datum, pg 

Step r from 1 to 4 until Tp 0 lies between T r and 
T r + 1 . Then 

Bq—B t + (T F Q - T r )B Tr pg 

(This need be computed only once.) Step r 9 from 1 
to 4 until Tpi lies between Tp and r r+ p Then 

Bi = B r , + (T FA - Tp)B T p pg 

and 

ABq = B\ - Bq pg 

For an example of this procedure, see reference 14. 
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Appendix G 

Temperature Biases and Bias Slopes 

The following table shows the value of bias and 
bias slope for each flight of the HiRAP experiment 
The results given for the post- APT procedure ol 
bias calibration are evaluated at the midpoint of 
the 400-sec section of data used for this method 
of calibration. The values of bias and bias slope 


calculated with the laboratory-derived relation of 
bias versus temperature (or voltage) are evaluated at 
the temperature (or voltage) given at the midpoint 
of the 400-sec calibration period. These results are 
given as ground calibration in the table below. For 
the Z-axis an alternate method of bias evaluation 
is applied, as described in the main text. The 
results with this method used to evaluate bias on the 
Z-axis are given in the table below as an alternate 
procedure. 


X-axis 


Plight 

Bias slope, ^/°F , from 

Bias, fjg, 

from — 

Post-APU 

procedure 

Ground calibration 
procedure 

Post-APU 

procedure 

Ground calibration 
procedure 

1 QO/1 

STS-06 

STS-07 

STS-08 

STS-09 

STS-41B 

STS-41C 

STS-51B 

STS-51F 

STS-61A 

STS-61C 

-30.6 

-22.3 

-26.7 

-23.3 

-25.5 

-22.8 

-23.8 

-18.2 

-21.4 

-27.9 

-26.0 

-20.0 

-20.4 

-16.4 

-21.1 

-20.0 

-20.0 

-18.8 

-17.3 

-25.3 

— 1457 
-279 
-43 
-3121 
107 
-357 
-320 
5448 
4942 
-2054 

-190 

51 

-676 

217 

-210 

-50 

5426 

4968 

-2098 


Y-axis 


Flight 

Bias slope, ijg/° F, from 

Bias, fjg 

, from — 

Post-APU 

procedure 

Ground calibration 
procedure 

Post-APU 

procedure 

Ground calibration 
procedure 

tor 

STS-06 

STS-07 

STS-08 

STS-09 

STS-41B 

STS-41C 

STS-51B 

STS-51F 

STS-61A 

STS-61C 

10.5 ' 

4.1 
8.9 

29.7 

4.1 

27.8 

6.1 
29.0 
27.7 
15.3 

15.0 

10.0 
10.6 
23.6 
10.3 

9.1 

10.9 

29.9 

28.9 
13.5 

495 

-8 

-91 

808 

-148 

-5 

59 

889 

1656 

872 

480 

-19 

-90 

-493 

-153 

-13 

-61 

824 

1513 

807 
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Z-axis 



rt Not available. 
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Appendix H 


Source Cod^ RRpsTRp (INPUT/ OUTPUT, TAPEl, TAPE2) 


D IMENS ION INBUF (615) 
0*************THIS IS THE ORIGINAL, 

COMMON/TBLK/BTIME, ETIME, NCYC 


DON'T MUCK ABOUT WITH 


jr p********* 


2 


10 

15 

20 

22 

100 


23 

25 

250 

30 


PRINT 2 
FORMAT (1H1) 


ISN=1 

NFILE=0 

NCYC=0 

DO 15 1=1,615 
INBUF (I) =0 
CONTINUE 

BUFFER IN (1,1) (INBUF (1) , INBUF (615) ) 
IF (UNIT (1) ) 20,22,25 
ILEN=LENGTH ( 1 ) 

IF (NCYC .GT. 1000) STOP 
CALL BYTE8 (ILEN, INBUF) 


GO TO 10 
NFILE=NFILE+1 
ENDFILE 2 

PRINT 100, NFILE,BTIME, ETIME, NCYC , 

FORMAT (///IX, 'END OF FILE ' , I2/5X, ' FILE BEGAN AT ',F9.3/5X, FILE 

1NDED AT ' , F9 . 3/5X, 'NO. OF DATA CYCLES — ’,14) 

NCYC=0 

BUFFER IN (1,1) (INBUF (1) , INBUF (615) ) 

IF (UNIT (1) ) 20,23,25 
ENDFILE 2 
STOP 

PPTKIT 9RD ETIME 

FORMAT (///IX, 'PARITY ERROR TIME OF LAST GOOD DATA FRAME = , 

1F9.3) 

STOP 

END 

SUBROUT INE B YTE 8 ( I LEN , INBUF ) 

DIMENSION INBUF (ILEN) 

COMMON/MASTER/ IDATA (4608) 

IF (ILEN .LT. 615) THEN 
IFLAG=208 


K=1 


ELSE 

IFLAG=4608 

K=17 

END IF 

DO 10 1=1, IFLAG 
IDATA (I) =0 
10 CONTINUE 
J=0 

DO 20 1=1, ILEN 
DO 15 L=K, 60,8 
J=J+1 

IF ( J .GT. IFLAG) GO TO 20 
CALL STRING (INBUF (I) , L, IDATA ( J) , 53, 8) 
15 CONTINUE 

IF (L .EQ. 65) K=5 


E 
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20 


20 

25 


30 


40 

50 


IF (L .EQ. 61) K=1 
CONTINUE 

IF (IFLAG .EQ. 208) THEN 

CALL RECHDR 

ELSE 

CALL RECDAT 
END IF 
RETURN 
END 


SUBROUTINE RECDAT 
COMMON/MASTER/IDATA (4608) 

COMMON /TBLK/BTIME, ETIME,NCYC 

DIMENSION ISEC (65) , IMSEC (65) , IXCNT (65) , IYCNT (65) , IZCNT ( 65 1 IE NO 
NCYci NCY wf EC < 65 1 - IXCNT 1 65 > * IYCNT < 65) -IZCNT ( 65) io ' ‘ ! ’ 

K=0 


DO 25 J=l, 64 
ID=IDATA ( K+3 ) 

ITIME=0 

CALL STRING (IDATA(K+ 6) , 53, ITIME, 37,8) 

CALL STRING (IDATA(K+5) , 53, ITIME, 45, 8) 

CALL STRING (IDATA (K+8) , 53, ITIME, 53, 8) 

CALL BCDCOD (ID, ITIME, NDAY,NHR, MIN, NSEC, MSEC) 

IF (ID .EQ. 0) THEN 

HM=FLOAT (NHR) *3600 . +FLOAT (MIN) *60 

ELSE 

ISEC ( J) =NSEC 
IMSEC ( J) =MSEC 

SEC=FLOAT (NSEC) +FLOAT (MSEC) /1000 
END IF 

IF (NCYC .EQ. l.AND. ID .EQ. 1) BTIME=HM+SEC-0 . 008875 
IXCNT (J)=0 3 

CALL STRING (IDATA (K+ 9) ,53, IXCNT (J) ,53,8) 

CALL STRING (IDATA (K+10) , 55, IXCNT (J) , 47, 6) 

IYCNT ( J) =0 

CALL STRING (IDATA (K+3 3) , 53, IYCNT (J) , 53, 8) 

CALL STRING (IDATA (K+34 ) , 55, IYCNT ( J) ,47 6) 

IZCNT ( J) =0 

CALL STRING (IDATA (K+15) , 53, IZCNT (J) , 53, 8) 

CALL STRING (IDATA (K+l 6) , 55, IZCNT (J) , 47, 6) 

IF ( J .LT. 34 .OR. J .GT. 41) GO TO 20 
IENG ( J-33) =IDATA (K+7) 

K=K+72 


CONTINUE 


ETIME=HM+SEC 

1=64 


IF (I .EQ. 2) GO TO 40 

ITIM= (ISEC (I) -ISEC (1-1) ) *1000+IMSEC (I) -IMSEC (1-1) 
IF (ITIM .LT. 0) GO TO 50 
1 = 1-1 
GO TO 30 

IF (IMSEC (2) .LT.8 .AND. ISEC (2) .EQ. 0) GO TO 50 
GO TO 70 
DO 60 L=I, 64 
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60 ISEC (L) =ISEC (L) +60 
70 ISEC (1) =HM+ISEC (2) +1 
IMSEC ( 1 ) =IMSEC ( 2 ) - 9 
IF (IMSEC (1) .GE. 0) GO TO 79 
IMSEC (1) =IMSEC (1) +1000 

79 DO 80 1=2,64 

80 ISEC (I) =ISEC (I) +HM+1 

WRITE (2) ISEC (34) , IMSEC (34) , (IENG ( J) , J=l, 8) 

90 WRITE (2) ISEC (I) , IMSEC (I) , IXCNT (I) , IYCNT (I) , IZCNT (I) 
RETURN 

SUBROUTINE BCDCOD (ID, ITIME, NDAY, NHR, MIN, NSEC, MSEC) 

IF (ID .EQ. 0) THEN 

NDAY=NHR=MIN=0 

CALL STRING (ITIME, 37, NDAY, 51, 10) 

CALL BCDOCT (NDAY) 

CALL STRING (ITIME, 47, NHR, 55, 6) 

CALL BCDOCT (NHR) 

CALL STRING (ITIME, 53, MIN, 54, 7) 

CALL BCDOCT (MIN) 

ELSE 

NSEC=MSEC=0 

CALL STRING (ITIME, 53, NSEC, 54,7) 

CALL BCDOCT (NSEC) 

CALL STRING (ITIME, 43, MSEC, 51, 10) 

END IF 
RETURN 
END 

SUBROUTINE BCDOCT (I) 

IUN=0 

ITEN=0 


IHUN=0 

CALL STRING (I, 49, I HUN, 57, 4) 

CALL STRING (I, 53, ITEN, 57,4) 

CALL STRING (I, 57, IUN, 57, 4) 

1= (IHUN*10+ITEN) *10+IUN 

RETURN 

END 

SUBROUTINE RECHDR 
DIMENSION IDIS (9) 

COMMON/MASTER/ IDATA (208), IDUM (3888) 


FORID=IDATA ( 1 ) 
SCPU=IDATA (113) 

FRSZ= IDATA (115) 
FRNO=IDATA(117) 
RANGE=IDATA(119) 

CALL ASC2DC (IDIS) 

PRINT 5015, FORID, SCPU, 
5015 FORMAT (1H1, 'FORMAT ID 
1F6.2, /IX, 'FRAME SIZE 
2 IX, 'DATA RANGE = ' 

RETURN 
END 


FRSZ, FRNO, RANGE, IDIS 

= ',F6.2,/1X, 'CPU WORD SIZE 
= ' ,F6.2, /IX, 'NUMBER OF FRAME 
, F6 . 2, /IX, 9A10/ /) 


10 


15 


20 


30 

40 


50 


SUBROUTINE ASC2DC(IDIS) 

DIMENSION IDIS (9) 

COMMON/MASTER/ IDATA (208), IDUM (3888) 

INTEGER ASCII (17) ,DSPLY(17) 

DATA ASCII/O" 53", O"55",O"52",O"57",O"50",O"51",O" 44", 
10"54",0"56",0"43",0"133",0"135 ,, ,0"45",0"73",0"72"/ 
DATA DSPLY/O"45",O"46",O"47",O"50",O"51",O"52",O"53", 
10"56", 0"57" , O"60" , 0" 61" , 0" 62" , 0"63", 0"77", O"00" / 

DO 10 1=1, 9 
IDIS (I) =10H 
CONTINUE 
IDCBIT=1 
IDWD=1 


0"75", 


0"54" , 


O"40" , 


0"55", 


DO 50 1=1,88 

IF ( (IDATA (120+1) .LT. O"101") .OR. (IDATA (120+1) .GT.O"132") ) GOT 


IDATA (120+1) =IDATA (120+1 ) - O"100" 

GO TO 40 

IF ( (IDATA (120+1) . LT . O"60" ) .OR. (IDATA (120+1) . GT.O"71" ) ) GO TO 20 
IDATA (120+1) =IDATA (120+1) -0"25" 

GO TO 40 
DO 30 J-1,17 

IF (IDATA(120+I) .NE. ASCII (J) ) GO TO 30 
IDATA (120+1) =DSPLY ( J) 

GO TO 40 
CONTINUE 

IDATA ( 120+1 )=0" 55" 

CALL STRING (IDATA (120+1) , 55, IDIS (IDWD) , IDCBIT, 6) 

IDCBIT=IDCBIT+6 
IF (IDCBIT . LE . 60) GO TO 50 
IDWD=IDWD+1 
IDCBIT=IDCBIT-60 
CONTINUE 
RETURN 
END 
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PROGRAM SCIREAD (INPUT, OUTPUT, TAPE5=INPUT, TAPE6— OUTPUT, TAPE9, TAPEl , 
*TAPE2) 

C 

c THIS ROUTINE READS AND PRINTS RAW DATA FROM HIRAP TAPES 

C 

C WRITTEN BY: J. W. RUSSELL, DEC 1985 
C 

DIMENSION DATAPT (4 ) , NAMES (4) ,XMAX(4) ,XMIN(4) 

C 

CHARACTER* 8 NAMES , . 

DATA NAMES/ ' TIME-SEC ' , ' X-COUNTS ' , ' Z-COUNTS ' , ' Y-COUNTS / 

C 

WRITE (6, 800) 

800 FORMAT (/5X, ' JTREAD STARTED',/) 

START=0 . 0 
KMAX = 225 
IREV = 0 
IGAP = 0 
NCHAN = 4 
C 

C READ TAPE HEADER 

C 

C READ (9,END=600) ISN, NCHAN, (NAMES (I) , 1=1, NCHAN) , 

c * (IUNITS(I) ,I=1,NCHAN), (HDR(I) , 1=1, 8) 

READ ( 9, END=600) IDAY, IHOUR, IMIN 
WRITE (6, 123) IDAY, IHOUR, IMIN 

123 FORMAT (2X, ' IDAY, IHOUR, IMIN ON HEADER = ' , 3 (2X, 16) , /) 

600 IF (EOF (9) .NE. 0) THEN 
WRITE (6, 802) 

802 FORMAT (5X, 40HEOF FOUND WHEN ATTEMPTING TO READ HEADER ) 

GO TO 900 
ENDIF 
C 
C 

C WRITE (6, 104) ISN, NCHAN, (HDR(I) ,1=1,8) 

C104 FORMAT (1H1, 5X, 7HFILE = , 17 , 5X, 8HNCHAN = , 112, 5X, 15HFOUND HEADER - 
C * , 8A10 ) 

C WRITE (6, 303) (NAMES (I) , 1=1, NCHAN) 

C WRITE (6, 303) (IUNITS (I) , 1=1, NCHAN) 

303 FORMAT (IX, 10 (A10,2X)) 

C 

C 

READ (9,END=91) (DATAPT (I) , 1=1, NCHAN) 

WRITE (1) DATAPT (1) , DATAPT (2) , DATAPT (3) , DATAPT (4) 

C 

C SET MINIMUM AND MAXIMUM VALUES 

C 

DO 1 I = 2, NCHAN 
XMIN(I) = DATAPT (I) 

XMAX(I) = DATAPT (I) 

1 CONTINUE 

ITIME = 0 
START = DATAPT (1) 

TIMENEW = START - 0.1 
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KCNT = 0 
NUMPTS = 0 


C 

C 

C 

C 

90 


40 


C 


113 


C 

C 

C 

C 

C 


3 

C 


MOVE TO DESIRED START AND PRINT RAW DATA UNTIL END OF 
IS REACHED ELIMINATING BAD POINTS AND TIME REVERSALS 


FILE 


READ (9,END=91) (DATAPT (I) , I=1,NCHAN) 

IF (DATAPT (1 ) .LT. TIMENEW) THEN 

IF (TIMENEW . GT . 8 63 90 . 0 . AND . DATAPT ( 1 ) . LT . 0 . 0 ) THEN 
ITIME = 1 
ELSE 

IF (IREV.EQ. 1) THEN 

TIME2 = DATAPT (1) 

ELSE 

TIME1 = DATAPT (1) 

TIME2 = DATAPT (1) 

IREV = 1 

END IF 
GO TO 90 

END IF 
ENDIF 

IF (IREV.EQ. 1) WRITE (6, 40) TIME1, TIME2 
*^F'L2^3 ^ , REVERSAL BETWEEN TIME =, ,1F12.3, ' AND TIME — ' 

IREV = 0 


IF (DATAPT ( 1) .GT. (TIMENEW+. 01) ) THEN 
IF (IGAP.EQ.0) THEN 
WRITE (6, 113) DATAPT ( 1 ), TIMENEW 

FORMAT (2X, 'TIME GAP BETWEEN TIMES ',F12 3 ' AND ' FI 2 
IGAP =1 ' ' J ' 

END IF 

IF (DATAPT ( 1) .GT. (TIMENEW+1 . 0) .AND. 

* DATAPT (1) .LT. (TIMENEW+3 . 0) ) GO TO 90 
IF (DATAPT (1) .GT. (TIMENEW+15.) .AND. 

* DATAPT(l) .NE. 31361. 197)GO TO 90 

END IF 


TIMENEW = DATAPT (1) 

IGAP = 0 

NUMPTS = NUMPTS + 1 
KCNT = KCNT + 1 

DATAPT (1) = DATAPT (1) + ITIME * 86400 0 
DO 3 I = 2, NCHAN 

IF (DATAPT (I) .LT.XMIN(I) ) XMIN(I) = DATAPT ( I ) 
IF (DATAPT ( I ) . GT . XMAX ( I ) ) XMAX(I) = DATAPT ( I ) 
CONTINUE 


WRITE (1) DATAPT (1) , DATAPT (2) , DATAPT (3) , DATAPT (4) 
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IF (KCNT.EQ.KMAX) THEN 

WRITE (6,5) DATAPT ( 1 ) , DATAPT ( 2 ) , DATAPT ( 3 ) , DATAPT ( 4 ) 

5 FORMAT (1F12 . 3, 3E12 . 5) 

KCNT = 0 
ENDIF 
C 

GO TO 90 

91 IF (EOF (9) .NE. 0 . ) THEN 

STOP = DATAPT (1) - 86400.0 * ITIME 
WRITE (6, 92) START, STOP 

92 FORMAT ( / 5X, 'START TIME =' , 1E12 . 5, 5X, ' STOP TIME -',1E12.5 /) 
DO 4 I = 2,NCHAN 

WRITE (6, 93) I , NAMES ( I ) , XMIN ( I ) , XMAX ( I ) 

93 FORMAT (5X, 'CHANNEL' , 112, 5X, 'NAMES =',1A10,5X , 

* 'MIN VALUE = ' , 1E12 . 5, 5X, 'MAX VALUE =',1E12.5 ) 

4 CONTINUE 

ENDIF 

WRITE (6, 245) NUMPTS 

245 FORMAT (5 X, 'NUMBER OF POINTS ON TAPE 1 =',I8) 

C 

900 CONTINUE 

WRITE (6, 801) 

801 FORMAT ( / 5X, ' JTREAD COMPLETED') 

STOP 

END 


53 


c 

c 

c 

c 

c 


c 


c 

c 

c 

c 


c 


123 

C 

C 


C 

C 

C 

C 

C 

c 

c 

c 

1 

c 


c 

c 

c 

c 


2 

C 


PROGRAM HSKPRED (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, 

* TAPE9, TAPE1, TAPE2, TAPE3, TAPE4) 

THIS ROUTINE READS AND PRINTS RAW DATA FROM HIRAP TAPES 
WRITTEN BY HIRAP PROJECT GROUP - JANUARY 1986 

DIMENSION DATAPT (9) , NAMES ( 9) , IUNITS (9) , HDR (9) , XMAX ( 9) , 

* XMIN (9) 

CHARACTER* 8 NAMES 

DATA NAMES/ ' TIME-SEC ' , ' X-FINE ' , 'X-COARSE ' , • Y-FINE ' , 

* ' Y-COARSE ' , ' Z-FINE ' , ' Z-COARSE ' , ' POS-V ' , 

* 'NEG-V '/ 

THE FOLLOWING IS A LIST OF INPUTS TO THIS PROGRAM 

KMAX COUNT AT WHICH EACH POINT IS WRITTEN TO OUTPUT 

KMAX = 4 
NCHAN = 9 
JREV = 0 
IGAP = 0 
STPTIM = 49255. 

READ (9) IDAY, IHOUR, IMIN 
WRITE (6, 123) IDAY, IHOUR, IMIN 
FORMAT (2X, 'IDAY, IHOUR, IMIN = ' ,3(2X, 15)/) 


READ ( 9, END=1) (DATAPT (I) , 1=1, NCHAN) 
WRITE (1) (DATAPT (I) ,1=1, NCHAN) 


DEFINE HEADER IF NECCESSARY 


CONTINUE 

IF (EOF (9) .NE. 0) THEN 
WRITE (6, 10) 

GO TO 7 

ENDIF 


SET MINIMUM AND MAXIMUM VALUES 

DO 2 I = 2, NCHAN 
XMIN (I) = DATAPT (I) 

XMAX (I) = DATAPT (I) 

CONTINUE 
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ITIME = 0 
START = DATAPT (1) 

TIMENEW = START - 0.1 
KCNT = 0 
NUMPTS = 0 

MOVE TO DESIRED START AND PRINT RAW DATA UNTIL END OF FILE 
IS REACHED ELIMINATING BAD POINTS AND TIME REVERSALS 

CONTINUE 

READ ( 9 , END=5 ) (DATAPT (I) , 1=1, NCHAN) 

IF (DATAPT (1) .GT.STPTIM) GO TO 108 

IF (DATAPT (1) .LT. TIMENEW) THEN 

IF (TIMENEW . GT. 86390.0 .AND. DATAPT ( 1 ) .LT. 10.0) THEN 
ITIME = 1 

ELSE 

IF (JREV.EQ.0) THEN 
WRITE (6, 13) DATAPT (1) 

JREV = 1 
END IF 
GO TO 3 

ENDIF 

ELSE IF (DATAPT (1). EQ. TIMENEW) THEN 
GO TO 3 

END IF 


IF (DATAPT (1) .GT. (TIMENEW+. 7) ) THEN 
IF (IGAP.EQ.0) THEN 
WRITE (6, 113) DATAPT (1) , TIMENEW 
FORMAT (2X, 'TIME GAP BETWEEN TIME ' ,F12.3, ' AND ',F12.3) 
IGAP = 1 
END IF 


IF (DATAPT (1) .GT. (TIMENEW+50 . ) . AND . DATAPT ( 1 ) .LT. 

(TIMENEW+100 . ) ) GOTO 3 
END IF 


JREV = 0 

TIMENEW = DATAPT (1) 

IGAP = 0 

NUMPTS = NUMPTS + 1 
KCNT = KCNT + 1 

DATAPT (1) = DATAPT (1) + ITIME * 86400.0 
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DO 4 I = 2, NCHAN 

IF (DATAPT(I) .LT. XMIN(I)) XMIN(I) = DATAPT (I) 

IF (DATAPT (I) . GT. XMAX(I)) XMAX(I) = DATAPT ( I ) 

4 CONTINUE 
C 

WRITE (1) (DATAPT (I) ,1=1, NCHAN) 

C 

IF (KCNT .EQ. KMAX) THEN 

WRITE (6, 14) (DATAPT (I) , 1=1, NCHAN) 

KCNT = 0 

END IF 
C 

GO TO 3 
C 

5 IF (EOF (9) .NE.O) THEN 

STOP = DATAPT (1) - 86400.0 * ITIME 
WRITE (6, 15) START, STOP 
C 

DO 6 I = 2, NCHAN 

WRITE (6, 16) I , NAMES ( I ) , XMIN ( I ) , XMAX ( I ) 

6 CONTINUE 
C 

END IF 
C 

WRITE (6, 17) NUMPTS 
C 

7 CONTINUE 
WRITE (6, 18) 

STOP 

108 WRITE (6, 119) STPTIM 

119 FORMAT (2X, 'RAN INTO STOP TIME ' , 2X, F12 . 3) 

C 

STOP 

10 FORMAT (5X, 'EOF FOUND WHEN ATTEMPTING TO READ HEADER') 

11 FORMAT (1H1, 4X, 'ISN =', 17, 5X, 'NCHAN =',1I2,5X, 

*' FOUND HEADER :',8A10 ) 

12 FORMAT (9 (2X,A10) ) 

13 FORMAT (5X, 'TIME REVERSAL AT TIME =',1E12.5 ) 

14 FORMAT (5F12 . 3, /, 4F12 . 3) 

15 FORMAT ( / 5X, 'START TIME = ' , 1E12 . 5, 5X, ' STOP TIME =', 

* 1E12.5 /) 

16 FORMAT (5X, 'CHANNEL', 12, 5X, 'NAMES =',1A10,5X, 

* 'MIN VALUE = ' , 1E12 . 5, 5X, 'MAX VALUE =',1E12.5 ) 

17 FORMAT (5X, 'NUMBER OF POINTS ON TAPE 1 =',I8) 

18 FORMAT ( // 5X, ' HSKPRED COMPLETED') 

19 FORMAT ( / / 5X, 'TIME GAPS'//) 

20 FORMAT (5X, 'TIME GAP BETWEEN TIME =',1F12.3, 

* ' AND TIME = ' , 1F12 .3) 

21 FORMAT ( / / 5X, 'TIME REVERSALS'//) 

22 FORMAT (9 (2X,A10) /) 

END 
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PROGRAM TCALIB (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, TAPE7 , TAPE1 ) 
C 

DIMENSION NAMES (10) , IUNITS (10) , TITLE (8) , DATAPT (7) , TF (3) , TC (3) , 

* VC (3) , TEMP (3) 

C 

KMAX1 = 4 
KMAX2 = 20 
NP = 0 
REWIND (7) 

READ (5, 52,END=1) SN,T1,T2 
1 CONTINUE 

IF (EOF (5) .NE. 0) THEN 
WRITE (6, 58) 

GO TO 10 

ELSE 

ISN = SN 

WRITE (6, 60) ISN, Tl, T2 
WRITE (6, 53) 

ENDIF 

IF (EOF (7) .NE. 0) THEN 
WRITE (6, 57) 

GO TO 10 

ENDIF 

C 

KCNT1 = 3 
KCNT2 =19 

4 READ ( 7 , END=5 ) (DATAPT (J) , J=l, 7) 

TIME = DATAPT (1) 

IF (TIME .LT. Tl) GO TO 4 
IF (TIME .GT. T2 ) GO TO 10 
KCNT1 = KCNT1 + 1 
KCNT2 = KCNT2 + 1 
IF (KCNT1 .EQ. KMAX1) THEN 
NP = NP + 1 
TF (1) = DATAPT (2) 

TC (1) = DATAPT (3) 

TF (2) = DATAPT (4) 

TC (2) = DATAPT (5) 

TF (3) = DATAPT (6) 

TC (3) = DATAPT (7) 

C 

C CALL T VC CALC TO GET VOLTAGES AND TEMPERATURES 

C 

IF (SN.EQ. 1.0) CALL TVCCAL1 (TF, TC, VC, TEMP) 

IF (SN. EQ .2.0) CALL TVCCAL2 (TF, TC, VC, TEMP) 

WRITE (1) TIME, (VC (I) ,1=1,3) , (TEMP (I) , 1=1, 3) 

KCNT1 = 0 

IF (KCNT2 .GE. KMAX2) THEN 

WRITE (6, 54) TIME, (VC (I) , 1=1, 3) , (TEMP (I) , 1=1, 3) 

KCNT2 = 0 

ENDIF 

ENDIF 

C 

GO TO 4 
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5 CONTINUE 

WRITE {6, 57) 

10 CONTINUE 

WRITE (6, 59) NP 
C 

STOP 

C 

52 FORMAT (3F8.0) 

53 FORMAT (/ 4X, 8HTIME, SEC, 6X, 3HVCX, 9X, 3HVCY, 9X, 3HVCZ, 7X, 6HTEMP-X, 

* 6X, 6HTEMP-Y, 6X, 6HTEMP-Z, /) 

54 FORMAT (1F12 . 3, 6F12 . 5) 

57 FORMAT (/ 5X, 42HEND OF FILE FOUND ON TAPE 7 - PROGRAM STOP /) 

58 FORMAT (/ 5X, 42HEND OF FILE FOUND ON TAPE 5 - PROGRAM STOP /) 

59 FORMAT (/ 10X,25HTOTAL NUMBER OF POINTS = ,116 /) 

60 FORMAT (/ 5X, 12HHIRAP S/N 00,111,/ 5X, 7HFILE = , 5HTAPE7 , 5X, 5HT1 = , 

* 1F10.2, 9X, 5HT2 = ,1F10.2 /) 

END 

SUBROUT INE TVCCAL 1 ( TF , TC , VC , TEMP ) 

C 

C THIS ROUTINE COMPUTES TEMPERATURE FROM FINE AND COARSE 

C TEMPERATURE COUNTS OF RECALIBRATED HIRAP SN 001 

C 

DIMENSION A(3) ,B(3) ,G(3) , VM ( 1 0 , 3 ) , TF ( 3 ) , TC ( 3 ) , VC ( 3 ) , TEMP (3) 

C 

DATA A / 31.74, 30.92, 30.46 / 

DATA B / 24.46, 24.51, 24.66 / 

DATA G / 7.181, 7.186, 7.192 / 

DATA VM / -0.0014, -0.0014, 0.6127, 1.2268, 1.8407, 2.4547, 

* 3.0685, 3.6823, 4.2963, 4.2963, 0.0000, 0.0000, 0.6142, 1.2283, 

* 1.8424, 2.4564, 3.0704, 3.6843, 4.2981, 4.2981, -0.0002, 

* -0.0002, 0.6140, 1.2281, 1.8424, 2.4566, 3.0705, 3.6845, 

* 4.2984, 4.2984 / 

C 

C MAX TEMPERATURE RANGE = 5000 MILIVOLTS = 5 VOLTS 

C MAX TEMPERATURE COUNTS RANGE =250 

C SCALE FACTOR, SF = 5000/(2 **8-1) = 5000/255 

C IN ACCORDANCE WITH INITIAL HIRAP CALIBRATIONS, BOTH THE 

C FINE AND COARSE TEMPERATURE COUNTS SHOULD BE REDUCED BY 3. 

C 

SF = 5.0/250.0 
C 

C COMPUTE VOLTAGES AND TEMPERATURE FOR X, Y, AND Z AXES 

C 

DO 1 I = 1,3 

TFNEW = ( TF ( I ) - 3.0) * SF 

TCNEW = (TC (I) - 3.0) * SF 

M = 0 . 5 + (1.6* TCNEW) +1.0 

IF(M.LT.l) M = 1 

IF (M. GT . 9) M = 9 

VC1 = VM (M, I ) + TFNEW/ G ( I ) 

VC2 = VM (M+l, I) + TFNEW/G (I) 

A1 = ABS (VC1 - TCNEW) 

A2 = ABS (VC2 - TCNEW) 

VC (I) = VC1 
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IF (A2 . LT . A1 ) VC (I) = VC2 
TEMP (I) = A ( I ) + B (I) * VC(I) 

1 CONTINUE 

RETURN 
END 

SUBROUT INE TVCCAL2 ( TF , TC , VC , TEMP ) 

THIS ROUTINE COMPUTES TEMPERATURE FROM FINE AND COURSE 
TEMPERATURE COUNTS OF RECALIBRATED HIRAP S/N 002 


DIMENSION A(3) ,B(3) ,G(3) , VM ( 1 0 , 3) ,TF(3) , TC ( 3 ) ,VC(3) , TEMP (3) 

DATA A / 24.60, 24.53, 24.60 / 

DATA B / 25.96, 25.72, 25.72 / 

DATA G / 7.221, 7.1798, 7.187 / 

DATA VM / 0.0014, 0.0014, 0.6158, 1.2302, 1.8463, 2.4609, 3.0759, 

* 3.6192, 4.3047, 4.3047, -0.0005, -0.0005, 0.6141, 1.2287, 1.8434, 

* 2.4579, 3.0726, 3.6874, 4.3019, 4.3019, -0.0001, -0.0001, 0.6145, 

* 1.2291, 1.8437, 2.4582, 3.0729, 3.6875, 4.3021, 4.3021 / 

MAX TEMPERATURE RANGE = 5000 MILLIVOLTS = 5 VOLTS 
MAX TEMPERATURE COUNTS RANGE = 250 
SCALE FACTOR, SF = 5000/(2 ** 8 - 1) = 5000/255 
IN ACCORDANCE WITH INITIAL HIRAP CALIBRATIONS , BOTH THE 
FINE AND COURSE TEMPERATURE COUNTS SHOULD BE REDUCED BY 3. 

SF = 5.0/250.0 

COMPUTE VOLTAGES AND TEMPERATURES FOR X, Y, AND Z AXES 
DO 1 I = 1,3 

TFNEW = (TF (I) - 3.0) * SF 
TCNEW = (TC (I) - 3.0) * SF 
M = 0.5 + 1.6 * TCNEW + 1 
IF (M .LT. 1) M = 1 
IF (M .GT. 9) M = 9 
VC1 = VM (M, I) + TFNEW/ G ( I ) 

VC2 = VM (M+l, I) + TFNEW/ G (I) 

A1 = ABS (VC1 - TCNEW) 

A2 = ABS (VC 2 - TCNEW) 

VC (I) = VC1 

IF (A2 .LT. Al) VC (I) = VC2 
TEMP (I) = A (I) + B (I ) * VC(I) 

CONTINUE 

RETURN 
END 

2.0 5401.0 6057.0 
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PROGRAM JTRATES (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, TAPE7, 

* TAPE8, TAPE9, TAPE10, TAPE1, TAPE2) 

C 

C THIS IS THE HIRAP PROGRAM THAT CALCULATES ACCELERATIONS DUE TO 

C ANGULAR VELOCITIES AND THEN INTERPOLATES TO MATCH THE HIRAP 

C SCIENCE DATA INTERATION RATE. THE INDUCED ACCELERATIONS ARE 

C THEN ALGEBRAICALLY SUBTRACTED FROM THE RAW MICRO-G FILE. 

C THE CG CORRECTED MICRO-GS ARE PLOTTED IF SO DESIRED. 

C 

C WRITTEN BY: JOSEPH S. ROWLEY, JUNE 1983 

C AND MODIFIED BY HIRAP PROJECT GROUP, SEPT 1986 

C 

C 

C 

C 

DIMENSION DATA ( 100 ) ,DATA7 (100) , 

* NAMES (100) , IUNITS (100) ,HDR(8) , 

* NAMES7 (100) , IUNITS7 (100) ,HDR7 (8) , 

* XMOUNT ( 3 ) , YMOUNT ( 3 ) , ZMOUNT ( 3 ) , XBAR ( 3 ) , YBAR ( 3 ) , ZBAR ( 3 ) 


REAL NEWTIM, NEWX, NEWY, NEWZ 
C 

c 

C THE FOLLOWING IS A LIST OF INPUTS TO THIS PROGRAM 

C 

c 

C IFLT 

C 

C IPLTMG = 1 

C =0 

C 

C T1 

C 

C T2 

C 

C DAY 

C 

C XEPOCH 

c 

C ALTSTRT 

C 

C ALTSTOP 

C 

C XLENG 

C 

C XCG 

C YCG 

C ZCG 

C 
C 

C XMOUNT 

C YMOUNT 


STS FLIGHT NUMBER 

TO PLOT MICRO-GS ON +/- 1000 SCALE 
NO PLOTTING 

START TIME FOR DATA CALCULATION (SEC) 

STOP TIME FOR DATA CALCULATION 
DAY OF DESCENT 

START TIME OF RATE DATA (XBET FILE) 

START ALT FOR MICRO-G PLOT (KM) 

STOP ALT FOR PLOT (KM) 

LENGTH OF X-AXIS PLOT GRID (IN) 

VEHICLE CENTER OF GRAVITY LOCATION IN THE ORBITER 
STRUCTURAL REFERENCE SYSTEM (IN) 

HIRAP LOCATION ON ORBITER (IN) 
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C ZMOUNT 

C 

C YLENG LENGTH OF Y-AXIS PLOT GRID 

C 

C 

c 

C TAPES USED IN THIS CODE: 

C 

C INPUT : 

C 

C TAPE 7 UNCORRECTED MICRO-GS (T,A,X,Z,Y) 

C 

C TAPE 9 XBET FILE 

C 

C OUTPUT : 

C 

C TAPE 8 CORRECTED MICRO-GS (T,A,X, Z) 

C 

PRINT 800 

800 FORMAT (1H1, 4X, 'RATES STARTED') 

C 

C 

c 

c 

READ (5, 810) IFLT, IPLTMG 

READ (5, 811) ALTSTRT, ALTSTOP , XLENG, YLENG 

READ (5, 811) Tl, T2, XEPOCH, DAY 

READ (5, 811,END=820) XCG, YCG, ZCG 

DELALT = (ALTSTRT - ALTSTOP) 

FLT = IFLT 
SN= 1.0 

IF (FLT .EQ. 9 .OR. FLT .EQ. 26 .OR. FLT . EQ. 30) SN = 2.0 
C 

820 IF (EOF (5) .NE.0) THEN 

WRITE (6, 821) 

GO TO 999 
ELSE 

WRITE (6, 822) IFLT, IPLTMG 
WRITE (6, 823) ALTSTRT, ALTSTOP 
WRITE (6, 824) Tl, T2, XEPOCH, DAY 
WRITE (6, 825) XCG, YCG, ZCG 
END IF 
C 

810 FORMAT (2110) 

811 FORMAT (4F1 0.0) 

821 FORMAT (// 5X, 34HEOF FOUND ON TAPE 5 - PROGRAM STOP) 

822 FORMAT (// 5X, 10HFLT = STS , 112, 5X, 9HIPLTMG = ,112) 

823 FORMAT ( / 5X, 10HALTSTRT = , 1F10 . 2 , 5X, 10HALTSTOP = ,1F10.2) 

824 FORMAT (/ 5X, 5HT1 = , 1F10.2,/ 5X, 5HT2 = ,1F10.2, 

* / 5X, 13HXBET EPOCH = , 1F10.2,/ 5X, 6HDAY = , 1F4.0) 

825 FORMAT (/ 5X, 6HXCG = , 1F10.2,/ 5X, 6HYCG = , 1F10.2, 

* / 5X, 6HZCG = , 1F10 . 2 //) 

C 

c 
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c 

c 

DEGRAD = 180. /3. 1415927 
IF (FLT.EQ. 32) THEN 
KMAX = 350 
ELSE 

KMAX = 350 
END IF 

KCNT = KMAX - 1 
C 
C 
C 
C 

C USE EXACT HIRAP LOCATION AND CG LOCATION AT ENTRY INTERFACE 

C TO OBTAIN THE MOMENT ARMS IN FEET. 

C 

C X-AXIS ACCELEROMETER 

C 

XMOUNT(l) = 1216.97 
YMOUNT ( 1 ) = - 5.50 

ZMOUNT ( 1 ) = 298.55 

C 
C 

C Y-AXIS ACCELEROMETER 

C 

XMOUNT ( 2 ) = 1218.27 
YMOUNT (2) = - 5.50 

ZMOUNT (2) = 298.55 

C 
C 

C Z-AXIS ACCELEROMETER 

C 

XMOUNT (3) = 1218.27 
YMOUNT (3) = - 5.50 

ZMOUNT (3) = 296.12 

C 
C 

DO 111 1=1,3 

XBAR(I) = -(XMOUNT (I) - XCG)/12. 

YBAR(I) = (YMOUNT (I) - YCG)/12. 

ZBAR(I) = -(ZMOUNT (I) - ZCG)/12. 

WRITE (6, 826) I,XBAR(I) , I, YBAR (I) , I, ZBAR (I) 

111 CONTINUE 

C 
C 
C 

826 FORMAT (// 5X, 5HXBAR ( , 111, 4H) = ,1F10.2, 

* / 5X, 5HYBAR(, 111, 4H) = ,1F10.2, 

* / 5X, 5HZBAR ( , 111 , 4H) = ,1F10.2 //) 

C READ TAPE HEADERS 

C 

C 

IFILE = 9 

READ (9,END=600) ISN, NCHAN, (NAMES (I) , I=1,NCHAN) , 
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c 

c 

600 

802 


C 

C 

C 

C 


C 

C 

887 

888 

889 

890 
C 

C 

601 


C 

C 

C 

C 

C 


C 

C 

c 

c 

40 

450 

465 


(IUNITS (I) , 1=1, NCHAN) , (HDR(I) , 1-1,8) 

WRITE (6, 887) IFILE 

WRITE (6, 888) ISN, NCHAN, HDR 

IF (EOF (9) .NE.O) THEN 

FORMAT (// 5X, 38HEOF FOUND WHEN READING HEADER ON FILE ,112) 
GO TO 999 
ENDIF 


IFILE = 7 
READ (7, END=601) 


ISN7 , NCHAN7, (NAMES7 (I) , I=1,NCHAN7) , 
(IUNITS7 (I) , I=1,NCHAN7) , (HDR7 (I) ,1=1,8) 


ISN7 = 1 

NCHAN7 = 5 

WRITE (6, 887) IFILE 

WRITE (6, 888) ISN7 , NCHAN7 , HDR7 

WRITE (6, 889) (NAMES7 (I) , 1=1, NCHAN7) 

WRITE (6, 890) (IUNITS7 (I) , I=1,NCHAN7) 


FORMAT (/// 5X, 5HTAPE ,112) 

FORMAT (//5X, 6HISN = , 115, 5X, 8HNCHAN = ,115, / 5X, 
* 15HFOUND HEADER : , 8A10 /) 

FORMAT (4 (2X, A10 ) ) 

FORMAT (4 (2X,A10) //) 


IF (EOF (7) .NE.O) THEN 
WRITE (6, 802) IFILE 
GO TO 999 
ENDIF 


WRITE (8) ISN7,NCHAN7, (NAMES7 (I) , I=1,NCHAN7) , 

* (IUNITS7 (I) , 1=1, NCHAN7) , (HDR7 (I) , 1=1, 8) 


READ ANGULAR VELOCITIES AND ACCELERATIONS 

READ (9,END=450) (DATA (J) , J=1 , NCHAN) 

IF (EOF (9) .NE.O) THEN 
PRINT 465, TIME 

FORMAT (// 3X, 33HEOF FOUND ON TAPE 9 AFTER TIME = , 1F12 . 3 //) 
GO TO 200 
ENDIF 


C 


c 

c 


c 


c 

c 

c 

c 

c 


c 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

200 


TIME=DATA (1) + XEPOCH 
IF (TIME.LT.T1) GO TO 40 

P =DATA (49) 

Q =DATA (50) 

R =DATA (51) 

PDOT=0 

QDOT=0 

RDOT=0 


CONVERT P, Q, R TO RAD /SEC IF NEEDED 

P=P /DEGRAD 
Q=Q/DEGRAD 
R=R/DEGRAD 


ANGACLX = XBAR(l) 
ZBAR(l) 

ANGACLY =-XBAR (2 ) 
ZBAR (2) 

ANGACLZ =-XBAR ( 3 ) 
ZBAR (3) 


* (Q * Q + R * R) 

* (P * R + QDOT) 

* (P * Q + RDOT ) 

* (Q * R - PDOT) 

* (P * R - QDOT ) 

* (P * P + Q * Q) 


- YBAR(l) * (P * 
+ YBAR(2) * (P * 

- YBAR ( 3 ) * (Q * 


CONVERT FT/SEC2 TO MICRO-GS 


DX = ANGACLX / 32.174 * 1E06 
DY = ANGACLY / 32.174 * 1E06 
DZ = ANGACLZ / 32.174 * 1E06 


WRITE DATA TO TAPE 10 
WRITE (10) TIME, DX, DZ, DY 


IF (TIME.GT.T2) GO TO 200 
GO TO 40 

CONTINUE 
REWIND 10 
TIMSCI = 0 


NEWT IM=NEWX=NEWY=NEWZ=0 


- RDOT) - 
+ R * R) - 
+ PDOT) 4 - 
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c 

c 

c 

c 

65 READ (10, END=66) TIME, DX, DZ, DY 

66 IF (EOF (10) .NE.O) THEN 
PRINT 67, TIME 

67 FORMAT (// 5X, 34HEOF FOUND ON TAPE 10 AFTER TIME = , 1F12.3 //) 
GO TO 900 

END IF 
C 
C 

OLDX = NEWX 
OLDY = NEWY 
OLDZ = NEWZ 
OLDTIM = NEWTIM 
NEWX = DX 
NEWY = DY 
NEWZ = DZ 
NEWTIM = TIME 
C 

IF ( (TIMSCI - OLDTIM) .GT.0. 995) GO TO 65 
C 
C 

50 READ (7, END=51) (DATA7 (J) , J=1,NCHAN7) 

C 

C 

51 IF (EOF (7) .NE.O) THEN 
PRINT 466, DATA7 ( 1 ) 

466 FORMAT (// 5X, 33HEOF FOUND ON TAPE 7 AFTER TIME = , 1F12.3 //) 
GO TO 900 
ENDIF 
C 
C 

TIMSCI = DATA7 (1) 

ALT = DATA7 (2) 

XMG = DATA7 (3) 

ZMG = DATA7 (5) 

C 

C 

IF (TIMSCI.LT. OLDTIM) GO TO 50 
IF ((TIMSCI - OLDTIM) .GT. 0.9 95) GO TO 65 
C 

c 

C STRAIGHT LINE INTERPOLATION TO MATCH HIRAP DATA RATE 

C 

C 

XANGA = ( (TIMSCI - OLDTIM) / (NEWTIM - OLDTIM) ) 

* (NEWX - OLDX) + OLDX 
C 

C YANGA = ( (TIMSCI - OLDTIM) / (NEWTIM - OLDTIM) ) 

C . * (NEWY - OLDY) + OLDY 

C 

ZANGA = ( (TIMSCI - OLDTIM) / (NEWTIM - OLDTIM) ) 
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(NEWZ - OLDZ) + OLDZ 


C 
C 
C 
C 

C CORRECT MICRO-GS TO VEHICLE CG 

C 

XMG = XMG + XANGA 
ZMG = ZMG + ZANGA 
C 
C 

DX = -XANGA 
DZ = -ZANGA 
C 

C WRITE CALCULATED DATA TO TAPE 8 

C 

WRITE (8) TIMSCI, ALT,XMG, ZMG 
WRITE (1) TIMSCI, ALT, DX,DZ 
KCNT = KCNT + 1 
IF ( KCNT . GE . KMAX ) THEN 
ALT = ALT/1000. 

WRITE (6, 777) TIMSCI, ALT, XMG, ZMG,DX,DZ 
KCNT = 0 
END IF 

777 FORMAT (6F12. 3) 

C 

C 

IF (TIMSCI. GT.T2) GO TO 900 
GO TO 50 
C 

c 

900 CONTINUE 
C 

IF ( IPLTMG . EQ . 1 ) THEN 
CALL PSEUDO 
C 
C 

REWIND (1) 

C 

c PLOT X-AXIS INDUCED ACCELERATIONS 

C 


128 


129 


IY = 1 


CALL CALPLT (2 . 0, 2 . 0, -3) 


CALL DRAW (ALTSTRT, ALTSTOP , IY, FLT, SN, DAY, XLENG, YLENG) 
READ (1, END=129) TIME, ALT, DX, DZ 
ALT = ALT/1000. 


IF (ALT. GT. ALTSTRT) GO TO 128 

TPLOT = (ALTSTRT - ALT) * ( XLENG/ DELALT ) 

YPLOT = (DX +10.0) * (YLENG/20 . 0) 

IF (YPLOT . GT . 0 . AND . YPLOT . LT . YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21, 1) 

END IF 


IF (EOF (1) . NE . 0 . OR. TIME . GT. T2) GO TO 130 
GO TO 128 
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c 

130 


C 

C 

C 


131 


132 


CONTINUE 
GO TO 133 
REWIND (1) 

PLOT Y-AXIS INDUCED ACCELERATIONS 

IY = 2 
CALL NFRAME 

CALL CALPLT (2 . 0, 2 . 0, -3) 

CALL DRAW (ALTSTRT, ALTSTOP, IY, FLT, SN, DAY, XLENG, YLENG) 
READ (1, END=132) TIME, ALT, DX, DZ 
ALT = ALT/1000. 

IF (ALT. GT. ALTSTRT) GO TO 131 

TP LOT = (ALTSTRT - ALT) * (XLENG/DELALT) 

YPLOT = (DY +10.0) * (YLENG/20 . 0) 

IF (YPLOT . GT . 0 . AND . YPLOT . LT . YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21, 1) 

END IF 

IF (EOF (1) .NE.0.OR.TIME.GT.T2) GO TO 133 
GO TO 131 


C 

133 

C 

C 

C 


134 


135 


CONTINUE 
REWIND (1) 

PLOT Z-AXIS INDUCED ACCELERATIONS 

IY = 3 
CALL NFRAME 

CALL CALPLT (2. 0,2. 0,-3) 

CALL DRAW (ALTSTRT, ALTSTOP, IY, FLT, SN, DAY, XLENG, YLENG) 
READ (1, END-135) TIME, ALT, DX, DZ 
ALT = ALT/1000. 

IF (ALT. GT. ALTSTRT) GO TO 134 

TPLOT = (ALTSTRT - ALT) * (XLENG/DELALT) 

YPLOT = (DZ + 10.0) * (YLENG/20. 0) 

IF (YPLOT . GT . 0 . AND . YPLOT . LT . YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21, 1) 

END IF 

IF (EOF (1) .NE.O.OR.TIME.GT.T2) GO TO 136 
GO TO 134 


C 

136 CONTINUE 

GO TO 36 
REWIND (1) 

READ (1) 

C 

C PLOT X-AXIS MICROGS 

C 

IY = 1 
CALL NFRAME 

CALL CALPLT (2. 0,2. 0,-3) 

CALL DRAW1 (ALTSTRT, ALTSTOP, I Y, FLT, SN, DAY, XLENG, YLENG) 
28 READ ( 1 , END=2 9 ) TIME, XMG, ZMG, YMG 


IF (ALT. GT . ALTSTRT) GO TO 28 

TPLOT = (TIME - ALTSTRT) * (XLENG/DELALT) 

YPLOT = (XMG + 1000.0) * (YLENG/2000 . 0) 

IF (YPLOT . GT . 0 . AND . YPLOT . LT . YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21,1) 

ENDIF 

29 IF (EOF (1) .NE.O.OR.TIME.GT.T2) GO TO 30 
GO TO 28 

C 

30 CONTINUE 

REWIND (1) 

READ (1) 

C 

C PLOT Y-AXIS MICRO-GS 

C 

IY = 2 
CALL NFRAME 

CALL CALPLT (2 . 0, 2 . 0, -3) 

CALL DRAW1 (ALTSTRT, ALTSTOP, IY, FLT, SN, DAY, XLENG, YLENG) 

31 READ ( 1 , END=32 ) TIME, XMG, ZMG, YMG 

IF (ALT. GT. ALTSTRT) GO TO 31 

TPLOT = (TIME - ALTSTRT) * (XLENG/DELALT) 

YPLOT = (YMG + 1000.0) * (YLENG/2000 . 0) 

IF ( YP LOT. GT.0. AND. YPLOT.LT. YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21,1) 

ENDIF 

32 IF (EOF (1) .NE . 0 . OR. TIME . GT . T2) GO TO 33 
GO TO 31 

C 

33 CONTINUE 

REWIND (1) 

READ (1) 

C 

C PLOT Z-AXIS MICRO-GS 

C 

IY = 3 
CALL NFRAME 

CALL CALPLT (2. 0,2. 0,-3) 

CALL DRAW1 (ALTSTRT, ALTSTOP, IY, FLT, SN, DAY, XLENG, YLENG) 

34 READ (1,END=35) TIME, XMG, ZMG 

IF (ALT. GT. ALTSTRT) GO TO 34 

TPLOT = (TIME - ALTSTRT) * (XLENG/DELALT) 

YPLOT = (ZMG + 1000.0) * (YLENG/2000 . 0) 

IF (YPLOT . GT . 0 . AND . YPLOT . LT . YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21,1) 

ENDIF 

35 IF (EOF (1) .NE. 0 .OR.TIME.GT.T2) GO TO 36 
GO TO 34 

C 

36 CONTINUE 

CALL CALPLT (0.0, 0.0, 999) 

ENDIF 

999 CONTINUE 
PRINT 801 
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O O O !-> Cl o o 


801 FORMAT (// 5X, 'RATES COMPLETED') 

STOP 

END 

SUBROUTINE DRAW (ALTSTRT, ALTSTOP , IY, FLT, SN, DAY, XLENG, YLENG) 

C 

C THIS ROUTINE DRAWS GRID FOR HIRAP ACCELEROMETER VS TIME PLOTS 

C 

C IY = 1 FOR X AXIS 

C =2 FOR Y AXIS 

C =3 FOR Z AXIS 

C 

DIMENSION TITLE2 (4) , TITLE3 (3) , YCHAR (3) , LABEL1 (6) , 

* LABEL2 ( 2 ) 

C 

DATA TITLE2 / 10HHIRAP S/N , 10H00 ACCELE, 10HROMETER DA, 

* 10HTA - STS / 

DATA TITLE3 / 10HINDUCED AC, 10HCELERATION, 10HS / 

DATA YCHAR / 1HX, 1HY, 1HZ / 

DATA LABEL1 / 10H AXIS MIC,10HRO-GS AS A, 10H FUNCTION , 

* 10HOF ALTITUD, 10HE, KM - DA, 10HY / 

DATA LABEL2 / 10HFILE : CG1,10H3II / 

C 

DELALT = (ALTSTRT - ALTSTOP) 

Y2 = YLENG/2 . 

CALL CALPLT (0.0, YLENG , 2 ) 

CALL CALPLT (XLENG, 0.0, 3) 

CALL CALPLT (0.0, 0.0, 2) 

CALL CALPLT (0.0, Y2, 3) 

CALL CALPLT (XLENG, Y2, 2) 

DRAW TICK MARKS ON X AXIS 

NX = DELALT/ 2 
YBAR =0.0 
KCNT = 0 
DELX = XLENG/NX 
IEND = NX 
DO 1 J = 1, IEND 
KCNT = KCNT + 1 
XBAR = DELX * J 
IF (KCNT. EQ. 10) THEN 
DELY =0.14 
KCNT = 0 
ELSE 

DELY = 0.09 
ENDIF 

CALL CALPLT (XBAR, YBAR, 3) 

CALL CALPLT (XBAR, DELY, 2) 

CONTINUE 

DRAW TICK MARKS ON Y AXIS 


NY = 20 
KCNT = 0 
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XBAR =0.0 
DELY = YLENG/NY 
I END = NY 
DO 3 J = 1 , IEND 
KCNT = KCNT + 1 
IF (KCNT.EQ.2) THEN 
DX = 0.14 
KCNT = 0 
ELSE 

DX = 0.09 
END IF 

YBAR = DELY * J 
CALL CALPLT(XBAR, YBAR, 3) 

CALL CALPLT (DX, YBAR, 2) 

CONTINUE 

LABEL X AXIS 

DELX = DELX * 10 
YBAR = -0.25 
XVAL = ALTSTRT +20.0 
IEND = NX/10 + 1 
DO 5 I = 1, IEND 
XVAL = XVAL - 20.0 
XST = - 0.20 

XBAR = XST + DELX * (1-1) 

CALL NUMBER (XBAR, YBAR, 0.10, XVAL, 0. 0,-1) 
CONTINUE 

LABEL Y AXIS 

YST = -0.05 
DELY = DELY * 2 
IEND = NY/2 + 1 
DO 6 I = 1, IEND 
YBAR = YST + DELY * (1-1) 

YVAL = -10.0 + 2.0 * (1-1) 

XST = -0.45 

IF (YVAL. LE. -1000) XST = -0.55 
IF ( YVAL . EQ .0.0) XST = -0.17 
IF ( YVAL . GT . 0 . 0 ) XST = -0.39 
IF ( YVAL. GE. 1000) XST = -0.49 
CALL NUMBER (XST, YBAR, 0 . 10, YVAL, 0 . 0, -1) 

6 CONTINUE 

XBAR =1.0 

YBAR = YLENG +1.0 

CALL CHARACT (XBAR, YBAR, 0.10, TITLE2, 0.0, 40) 
XBAR = XBAR +1.12 

CALL NUMBER (XBAR, YBAR, 0.10, SN, 0 . 0,-1) 

XBAR = XBAR +2.48 

CALL NUMBER (XBAR, YBAR, 0.10, FLT, 0. 0,-1) 

XBAR =1.0 

YBAR = YBAR - 0.25 

CALL CHARACT (XBAR, YBAR, 0.10, TITLE3, 0.0,30) 
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c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 


1 

c 


YBAR = YBAR - 0.25 

CALL CHARACT (XBAR, YBAR, 0.10, YCHAR(IY) ,0.0,1) 

CALL CHARACT (XBAR, YBAR, 0.10, LABE LI, 0.0, 60) 

XBAR = XBAR +4.80 

CALL NUMBER (XBAR, YBAR, 0.10, DAY, 0. 0,-1) 

XBAR =1.0 

YBAR = YBAR - 0.25 

CALL CHARACT (XBAR, YBAR, 0 . 10, LABEL2, 0.0,20) 

RETURN 

END 

SUBROUTINE DRAW1 (ALTSTRT, ALTSTOP, IY, FLT, SN, DAY, XLENG, YLENG) 

THIS ROUTINE DRAWS GRID FOR HIRAP ACCELEROMETER VS TIME PLOTS 

IY = 1 FOR X AXIS 

= 2 FOR Y AXIS 

= 3 FOR Z AXIS 

DIMENSION TITLE2 (4) , TITLE3 ( 3 ) , YCHAR ( 3 ) , LABEL1 ( 6 ) , 

* LABEL2 (2 ) 

DATA TITLE2 / 10HHIRAP S/N , 10H00 ACCELE, 10HROMETER DA, 

* 10HTA - STS / 

DATA TITLE3 / 10HCORRECTED ,10HTO VEHICLE, 10H CG / 

DATA YCHAR / 1HX, 1HY, 1HZ / 

DATA LABEL1 / 10H AXIS MIC, 10HRO-GS AS A, 10H FUNCTION , 

* 10HOF SECONDS, 10H, GMT - DA, 10HY / 

DATA LABEL2 / 10HFILE : CG1,10H3II / 

DELALT = (ALTSTRT - ALTSTOP) 

CALL CALPLT (0.0, YLENG, 2) 

CALL CALPLT (XLENG, 0.0, 3) 

CALL CALPLT (0.0, 0.0, 2) 

DRAW TICK MARKS ON X AXIS 

NX = DELALT/100 
YBAR =0.0 
KCNT = 0 
DELX = XLENG/NX 
I END = NX 
DO 1 J = 1, IEND 
KCNT = KCNT + 1 
XBAR = DELX * J 
IF (KCNT. EQ. 5) THEN 
DELY =0.14 
KCNT = 0 
ELSE 

DELY =0.09 
END IF 

CALL CALPLT (XBAR, YBAR, 3) 

CALL CALPLT (XBAR, DELY, 2) 

CONTINUE 
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DRAW TICK MARKS ON Y AXIS 


NY = 40 
KCNT = 0 
XBAR =0.0 
DELY = YLENG/NY 
IEND = NY 
DO 3 J = 1, IEND 
KCNT = KCNT + 1 
IF (KCNT. EQ. 4) THEN 
DX = 0.14 
KCNT = 0 
ELSE 

DX = 0.09 
END IF 

YBAR = DELY * J 
CALL CALPLT (XBAR, YBAR, 3) 

CALL CALPLT (DX, YBAR, 2) 

CONTINUE 

LABEL X AXIS 

DELX = DELX * 5 
YBAR = -0.25 
XVAL = ALTSTRT - 500.0 
IEND = NX/5 + 1 
DO 5 I = 1 , IEND 
XVAL = XVAL + 500.0 
XST = - 0.20 

XBAR = XST + DELX * (1-1) 

CALL NUMBER (XBAR, YBAR, 0.10, XVAL, 0. 0,-1) 
CONTINUE 

LABEL Y AXIS 

YST = -0.05 
DELY = DELY * 4 
IEND = NY/4 + 1 
DO 6 I = 1, IEND 
YBAR = YST + DELY * (1-1) 

YVAL = -1000.0 + 200.0 * (1-1) 

XST = -0.45 

IF (YVAL. LE. -1000) XST 0.55 

IF ( YVAL . EQ .0.0) XST = -0.17 
IF (YVAL. GT. 0.0) XST = -0.39 
IF ( YVAL . GE .1000) XST = -0.49 
IF (YVAL.GE. 10000) XST = -0.59 
IF ( YVAL. LE. -10000) XST = -0.65 
CALL NUMBER (XST, YBAR, 0.10, YVAL, 0. 0,-1) 

6 CONTINUE 

XBAR =1.0 

YBAR = YLENG +1.0 

CALL CHARACT (XBAR, YBAR, 0 . 10, TITLE2, 0 . 0, 40) 
XBAR = XBAR +1.12 
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CALL NUMBER (XBAR, YBAR, 0 . 10, SN, 0 . 0,-1) 

XBAR = XBAR +2.48 

CALL NUMBER(XBAR, YBAR, 0.10, FLT, 0. 0,-1) 

XBAR =1.0 

YBAR = YBAR - 0.25 

CALL CHARACT (XBAR, YBAR, 0 . 10, TITLE3, 0.0,30) 
YBAR = YBAR - 0.25 

CALL CHARACT (XBAR, YBAR, 0.10, YCHAR(IY) ,0.0,1) 
CALL CHARACT (XBAR, YBAR, 0.10, LABEL1, 0.0,60) 
XBAR = XBAR +4.80 

CALL NUMBER (XBAR, YBAR, 0.10, DAY, 0. 0,-1) 

XBAR = 1.0 

YBAR = YBAR - 0.25 

CALL CHARACT ( XBAR, YBAR, 0.10, LABEL2 ,0.0,40) 

RETURN 

END 


6 
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ROUTE (OUTPUT , DEF , DC=LP , ST=RHR, UN=1 01385) 

PROGRAM ZPRESS (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, TAPE9) 

C 

c 

c 

C THIS PROGRAM FINDS THE ZERO REFERENCE VALUES FOR THE 44 CHANNELS 
C CONTAINED ON THE REACTION CONTROL SYSTEM THRUST CHAMBERS DATA TAPE 

C THESE VALUES ARE USED AS INPUTS TO THE PROGRAM THRUST. 

C 

C WRITTEN BY: ROBIN WADDELL FEBRUARY 1984 

C MODIFIED BY: JOSEPH S. ROWLEY MARCH 1985 

C 
C 
C 

DIMENSION DATAPT (100) ,DIFVAL(100, 100) ,SAMVAL(100, 100) 

C 

INTEGER I, L, NAMES (100) , IUNITS (100) ,HDR(8) ,NDIFPTS (100) , FLAG, 

.FAKE (100) 

C 

c 

c 

C THE FOLLOWING ARE INPUTS TO THIS PROGRAM 

C 

C STOP X-AXIS SATURATION TIME 

C 

c 

c 

c 

c 

C INPUTS GO HERE 

C 

STOP=69553 . 000 


FLAG=0 

DATAPT (1) =0.0 

DO 10 1=1,50 
NDIFPTS (I) =0 
10 CONTINUE 


PRINT 105 

105 FORMAT (1H1, "ZPRESS PROCEDURE STARTED") 
PRINT 2, STOP 

2 FORMAT (IX, "STOP=", F6 . 0) 


READ HEADER AND PRINT NAMES AND IUNITS 
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c 

110 READ (9,END=120) ISN, NCHAN, (NAMES (I) , 1=1, NCHAN) , 

. (IUNITS (I) , I=1,NCHAN) , (HDR(I) , 1=1,8) 

120 IF (EOF (9) .NE. 0) THEN 
PRINT 125 

125 FORMAT (/, "EOF FOUND WHEN ATTEMPTING TO READ HEADER") 
GO TO 210 
END IF 
C 

WRITE (6, 126) I SN , NCHAN , HDR 
PRINT 303, (NAMES (I) ,1=1,10) 

PRINT 303, (NAMES (I) , 1=11,20) 

PRINT 303, (NAMES (I) ,1=21,30) 

PRINT 303, (NAMES (I) ,1=31,40) 

PRINT 303, (NAMES (I) , 1=41, NCHAN) 

PRINT 304 

PRINT 303, (IUNITS (I) ,1=1,10) 

PRINT 303, (IUNITS (I) ,1=11,20) 

PRINT 303, (IUNITS (I) ,1=21,30) 

PRINT 303, (IUNITS (I) ,1=31,40) 

PRINT 303, (IUNITS (I) , 1=41, NCHAN) 

PRINT 304 

126 FORMAT (IX, 6HISN = , 114, 5X, 8HNCHAN = ,114,/ IX, 

* 15HFOUND HEADER : , 8A10 //) 

303 FORMAT (IX, 10 (A10) ) 

304 FORMAT (/) 

C 

C 

C 

C READ PRESSURES FOR ALL CHANNELS 

C 

C 

40 READ (9,END=135) (DATAPT (K) ,K=1, NCHAN) 

135 IF (EOF (9) .NE. 0) THEN 
PRINT 15 

15 FORMAT (/, "END OF FILE WHEN READING DATA") 

IF (STOP .GT. DATAPT (1) ) GO TO 110 

GO TO 210 

ENDIF 

IF (STOP .LE. DATAPT (1) ) GO TO 210 
C 
C 

c 

c 

c 

C IF FIRST PASS INCLUDE ALL VAULES 

C 

IF (FLAG .EQ. 0) THEN 
DO 101 1=3,46 
DIFVAL (1,1) =DATAPT ( I ) 

SAMVAL ( 1 , 1)=1 
NDIFPTS (I) = NDIFPTS (I) +1 
101 CONTINUE 

FLAG=FLAG+ 1 
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GO TO 40 
ENDIF 
C 
C 

c 

c 

C ERROR CODES (1E+37 OR GREATER) AND PRESSURES GREATER 

C THAN 5 PSIA NOT CONSIDERED AS REALISTIC ZERO REFERENCE VALUES 

C 

50 DO 102 1=3,46 

FAKE ( I ) =NDIFPTS ( I ) 

DO 100 J=l, FAKE (I) 

IF (DATAPT (I) .GE. l.E+37) GO TO 30 
IF (DATAPT (I) .GT. 5) GO TO 102 
30 IF (DATAPT (I) .EQ. DIFVAL(I,J)) THEN 
SAMVAL ( I , J) =SAMVAL ( I , J) +1 
GO TO 102 
ELSE 
C 

IF ( J .EQ. NDIFPTS (I) ) THEN 
NDIFPTS (I) =NDIFPTS (I) +1 
DIFVAL( I, NDIFPTS (I) )=DATAPT(I) 

SAMVAL ( I , NDIFPTS ( I ) ) =1 
ENDIF 
C 

ENDIF 

100 CONTINUE 
102 CONTINUE 


GO TO 40 


210 DO 300 1=3,46 
PRINT 9,1 

9 FORMAT (IX, "CHANNEL NUMBER=", 14) 
DO 301 L=l, NDIFPTS (I) 

PRINT *,DIFVAL (I, L) , SAMVAL (I, L) 

301 CONTINUE 
PRINT 302 

302 FORMAT (/) 

300 CONTINUE 


PRINT 400 

400 FORMAT (//, IX, "ZPRESS PROCEDURE COMPLETED") 
STOP 
END 
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fc II mren 


C 

C 

c 

c 

c 

c 

c 

c 

c 


PROGRAM THRUST (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=0UTPUT, TAPE 9, 
. TAPE7 , TAPE1 0 , TAPE 1 1 ) 

THIS ROUTINE FINDS FIRING TIMES FOR ORBITER RCS THRUSTERS 

NE1020 WITH TCOD924, THRUS924 
WRITTEN BY: JOSEPH S. ROWLEY, JUNE 1983 


REAL STOP, PRESS (100) , ZERO (50) , START, LAG, TCLAG 


INTEGER NAMES 1 (100) , IUNITS1 (100) , HDR ( 8 ) , NCHAN1, 
NAMES (100) , I UNITS (100) , HDR1 (8) , NCHAN 


THE FOLLOWING IS A LIST OF INPUTS TO THIS PROGRAM 


START 

STOP 

LAG 

TCLAG 

ZERO 


START TIME FOR DATA CALCULATION 
STOP TIME FOR DATA CALCULATION 
LAG TIME REQUIRED TO ENLARGE FIRING INTERVAL 
TIME THAT LAG VALUE IS CHANGED 
ZERO FOR EACH CHAMBER 


PRINT 800 

800 FORMAT ( / , / , IX, ' THRUST STARTED ' ) 


DO 22 1=1,50 
ZERO (I) = 0 
22 CONTINUE 


INPUTS GO HERE 

START=00000 
STOP=56714 . 
LAG=10 . 
TCLAG=66280 
ZERO ( 5) =1.6 
ZERO (10) = .8 
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ZERO (12) = .8 

ZERO (22) = .8 

ZERO (28)= .8 

ZERO (31) =.9 
ZERO (38) = 1E37 

ZERO (40) = 1E37 
ZERO (42) = .8 

C 
C 
C 
C 
C 

C WRITE TAPE HEADER ON TAPE 8 AND TAPE10 

C 

ISN1=1 

NCHAN1=2 

NAMES 1 (1 ) =4HTIME 
NAMES1 (2) =10HRCS FIRING 
IUNITS1 (1) = 7HSECONDS 
IUNITS1 (2) = 1H 
HDR1 (1) =10H OEX-HIRAP 
HDR1 (2 ) =10H RCS 

HDR1 (3) =10H THRUSTING 
HDR1 ( 4 ) = 6H TIMES 
HDR1 ( 5 ) = 8H DAY 248 
HDR1 ( 6 ) = 1H 
HDR1 ( 7 ) = 1H 
HDR1 ( 8 ) = 1H 


WRITE (8) ISN1, NCHAN1, (NAMES1 (I) , I=1,NCHAN1) , 

(IUNITS1 (I) , 1=1, NCHAN1) , (HDR1 (I) , 1=1,8) , 
(HDRl(I) ,1=1,8) 

** PRINT*, ISN1,NCHAN1, (NAMES1 (I) , I=1,NCHAN1) , 

** • (IUNITS1(I),I=1,NCHAN1) 

**99 FORMAT (4X, 5HISN1=, 15, 2X, 7HNCHAN1=, 13, 2X,2A7, 5X, 8A10) 


NAMES1 (2 ) =8HRCS CODE 

WRITE (10) I SN1 , NCHAN1 , (NAMES1 (I) , 1=1, NCHAN1) , 

(IUNITS1 (I) , 1=1, NCHAN1) , (HDR1 (I) , 1=1, 8) 


READ TAPE HEADER 


READ (9,END=600) ISN, NCHAN, (NAMES (I) , I=1,NCHAN) , 

(IUNITS (I) , I=1,NCHAN) , (HDR (I) , 1=1, 8) 


600 IF (EOF (9) .NE. 0) THEN 
PRINT 802 

802 FORMAT (IX, "EOF FOUND WHEN ATTEMPTING TO READ HEADER") 
GO TO 900 
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END IF 


C 

C 

C 

C 

40 READ (9,END=450) TIME, DAY, (PRESS (J) , J=3, 46) 

C** PRINT*, TIME, DAY, (PRESS (I) , 1=3, 10) 

C*400 FORMAT (12 (3X, F10 . 3) ) 

450 IF (EOF (9) .NE. 0 .AND. TIME .GT. STOP) THEN 

PRINT 465, TIME 

465 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE9 
AFTER TIME= ' ,F16.9) 

IF (TIME .LT. STOP) GO TO 101 

PRINT 467, TIME „ ^ 

467 FORMAT (IX, 4X, 38HSTOP TIME LESS THAN LAST TIME FOUND — ,F16.9) 

GO TO 900 

END IF 
C 

IF (START .GT. TIME) GO TO 40 
C 
C 

DO 57 1=3,46 

IF (PRESS (I) .GT. 1E+18 .OR. PRESS (I) .LT. ZERO(I)) GO TO 57 
C 

IF (I .LE. 18) THEN 

CODE=l 

ELSE IF (I .LE. 32) THEN 

CODE=2 

ELSE 

CODE=3 

END IF 
C 

WRITE (10) TIME, CODE 
C 

57 CONTINUE 
C 
C 
C 
C 
C 

IF (STOP .LE. TIME) GO TO 300 

GO TO 40 
C 

300 PRINT 245, TIME 

245 FORMAT ( IX, 4X, 4 6HSTOP TIME DESIRED IS LESS THAN LAST TIME READ=, 
F16.9) 

C 

LTIME=TIME 

C 

REWIND (10) 

C 

PTIME=0 

LFSTOP=0 
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60 READ (10,END=61) TIME, CODE 

61 IF (EOF (10) .NE. 0) THEN 
PRINT 62, TIME 

62 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE10 

AFTER TIME= ' ,F16.9) 

PRINT 63, TIME 

63 FORMAT (IX, 4X, 38HSTOP TIME LESS THAN LAST TIME FOUND =,F16 9) 
GO TO 900 

END IF 


30 IF (TIME - PTIME .GT. 0.041) THEN 

IF (LFSTOP .EQ. 0) THEN 
STIME=TIME - 0.04 
LFSTOP=l 


ELSE 

IF (TIME .LT. TCLAG) THEN 
STPTIME=PTIME + LAG 
ELSE 

STPTIME=PTIME + .08 
END IF 

WRITE (8) STIME, STPTIME 
PRINT 88, STIME, STPTIME 
FORMAT (5X, FI 2 . 5, 5X, F12 . 5) 

LFSTOP=0 
GO TO 30 


END IF 
END IF 


PTIME=TIME 

IF (LTIME .GT. TIME) GO TO 60 


900 CONTINUE 
PRINT 801 

801 FORMAT (IX, 'THRUST COMPLETED') 
STOP 
END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

777 


PROGRAM THFIT (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, 

. TAPE9, TAPE10, TAPE11, TAPE12, TAPE13) 

THIS ROUTINE REMOVES ODD DATA SPIKES THAT ARE LEFT AFTER OTHER 
THRUST REMOVING EFFORTS. 

WRITTEN BY: JOSEPH S. ROWLEY, JAN 1985 


DIMENSION X (10000), Y (10000), 

NAMES ( 10) , HDR (8) , IUNITS (10) ,DATAPT (10) , BUF (65) 

REAL LOWER 


THE FOLLOWING IS A LIST OF INPUTS TO THIS PROGRAM 


CHANIV 

CHANDV 

START 

STOP 

SIZE 

GAPSTR 

GAPS TP 

SATTIME 

SERSKIP 

BURNSTR 

BURNSTP 


CHANNEL TO BE FIT AS INDEPENDENT VARIABLE 
CHANNEL TO BE FIT AS DEPENDENT VARIABLE 
START TIME 
STOP TIME 

NUMBER OF POINTS FOR LEAST SQUARES FIT 
TIME FOR START OF APU TRANSITION - Z AXIS ONLY 
TIME FOR STOP OF APU TRANSITION - Z AXIS ONLY 
SATURATION TIME FOR DEPENDENT CHANNEL 
NUMBER OF SERIALS TO SKIP TO LOCATE DATA 
START TIME OF DEORBIT BURN 
STOP TIME OF DEORBIT BURN 


WRITE (6, 777) 

FORMAT (1H1, 13HTHFIT STARTED //) 
INPUTS GO HERE 
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CHANIV=1 
CHANDV=4 
START=0 
STOP=62345 . 
GAPSTR=61220. 
GAPSTP=61245 . 
SATTIME=100000 . 
CURVBK=61700 . 
BURNSTR=60030 . 
BURNSTP=60220 . 
SIZE1=1740 . 
SIZE2=174 . 
SERSKIP=0 
JCNT = 0 
JMAX = 350 


PRINT*, 

' CHANIV= 

' , CHANIV 

PRINT*, 

' CHANDV= 

' , CHANDV 

PRINT*, 

'START = 

' , START 

PRINT*, 

' STOP = 

' , STOP 

PRINT*, 

’ GAPSTR 

= ', GAPSTR 

PRINT*, 

' GAPS TP 

= ' , GAPSTP 

PRINT*, 

' SATTIME 

= ', SATTIME 

PRINT*, 

' CURVBK 

= ', CURVBK 

PRINT*, 

' BURNSTR 

= ', BURNSTR 

PRINT*, 

' BURNSTP 

= ', BURNSTP 

PRINT*, 

' SIZE1 = 

' , SIZE1 

PRINT*, 

' SIZE2 = 

' , SIZE2 

PRINT*, 

' SERSKIP 

= ', SERSKIP 


C 


c 

c 

c 

c 

c 

c 

c 


SKIP TO DESIRED SERIAL IF NEEDED 
IF (SERSKIP .NE. 0) THEN 

GENERATE FILE ENVIRONMENT TABLE FOR SPECIFIED DIRECT ACCESS FILE 
NAME=L"TAPE9" 

CALL GENFET (FET, NAME, BUF, 65) 

CALL SKIPR (FET, SERSKIP) 

END IF 
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READ, WRITE, AND PRINT TAPE HEADER 


READ (9,END=600) ISN, NCHAN, (NAMES (I) , I=1,NCHAN) , (IUNITS (I) , 1=1, 
NCHAN) , (HDR ( I ) , 1=1 , 8 ) 

600 IF (EOF (9) .NE. 0) THEN 
PRINT 802 

802 FORMAT (IX, "EOF FOUND WHEN ATTEMPTING TO READ HEADER") 

GO TO 400 
END IF 


WRITE (12) ISN, NCHAN, (NAMES (I) , 1=1, NCHAN) , (IUNITS (I) , 1=1, 
NCHAN) , (HDR (I) , 1=1, 8) 

PRINT 104, ISN, HDR 

104 FORMAT (/, IX, 4HFILE, 17, 14H FOUND HEADER=, 8A10) 

PRINT 303, (NAMES (I) , 1=1, NCHAN) 

PRINT 303, (IUNITS (I) , 1=1, NCHAN) 

PRINT 302 

303 FORMAT (IX, 8 (A10) ) 

302 FORMAT (/) 


DETERMINE UPPER, LOWER, UPPER2 , LOWER2 FOR DESIRED CHANNEL 


IF (CHANDV .EQ. 3) THEN 

UPPER=45 
LOWER=4 5 
UPPER2=45 
LOWER2=45 

ELSE IF (CHANDV .EQ. 4) THEN 

UPPER=7 5 
LOWER=7 5 
UPPER2=225 
LOWER2=225 

ELSE 

PRINT*, 'PROBLEM WITH CHANDV DEFINITION' 

END IF 


CURVE FITTING STARTS HERE 
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c 

c 

c 

c 

DATAPT ( 1 ) =0 
FAKE=0 
SIZE=SIZE1 
34 P=0 
SUMX=0 
SUMY=0 
SUMXSQ=0 
SUMXY=0 
REWIND (11) 

C 

c 

40 READ (9,END=500) (DATAPT (J) , J=1,NCHAN) 

500 IF (EOF (9) .NE. 0) THEN 
PRINT 165, DATAPT (1) 

165 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE 9 
AFTER TIME= \F16.9) 

GO TO 400 
END IF 
C 
C 

IF (DATAPT (1) .LT. START) GO TO 40 
IF (DATAPT (1) .GE. STOP) THEN 

PRINT*, ' STOP TIME FOUND AFTER READ AT LABLE 40= ', DATAPT ( 1 ) 

PRINT*, ' ' 

PRINT*, ' ' 

GO TO 100 
END IF 
C 

IF (DATAPT (1) .GT. CURVBK .AND. FAKE .NE. 1) THEN 
SIZE=SIZE2 
FAKE=1 
GO TO 34 
END IF 
C 
C 

c 

IF (DATAPT (1) .GE. BURNSTR .AND. DATAPT (1) .LE. BURNS TP) GO TO 40 
C 
C 

IF (DATAPT (1) .GE. GAPSTR .AND. DATAPT (1) .LE. GAPSTP 
•AND. CHANDV .EQ. 4) GO TO 40 
C 
C 

c 

IF (P .EQ. 0) THEN 

FIRS TX=DATAP T (CHANIV) 

END IF 
P=P+1 

IF (P .GT. SIZE) PRINT*, 'PROBLEM WITH SIZE OF P' 

C 
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c 

WRITE (11) (DATAPT (J) ,J=1,NCHAN) 

WRITE (13) (DATAPT ( J) , J=1 , NCHAN) 

C 

C 

X (P) =DATAPT (CHANIV) -FIRSTX 
Y (P) =DATAPT (CHANDV) 

SUMX=SUMX+X (P) 

SUMY=SUMY+Y (P) 

SUMXSQ=SUMXSQ+X (P) *X (P) 

SUMXY=SUMXY+X(P) *Y (P) 

C 

c 

C PRINT*, 'CHECK 3 ',SIZE,P 

IF (P .NE. SIZE) GO TO 40 
C 

IF (DATAPT (1) .LE. SATTIME) TIMLAS=DATAPT (1) 

C PRINT*, 'CHECK 1' 

C 

C 

AVGX=SUMX/P 

AVGY=SUMY/P 

SLOPE=(SUMXY-P*AVGX*AVGY) / (SUMXSQ-P*AVGX*AVGX) 
YINT = AVGY - SLOPE * AVGX 
C 

C PRINT* , ' SUMX= ' , SUMX 

C PRINT* , ' SUMY= ' , SUMY 

C PRINT* , ' SLOPE= ' , SLOPE 

C PRINT* , ' YINT= ' , YINT 

C PRINT * , ' AVG X= ' , AVGX 

C PRINT * , ' AVG Y= ' , AVGY 

C PRINT* , ' SUMXY= ' , SUMXY 

C PRINT* , ' SUMXSQ= ' , SUMXSQ 

C PRINT*, 'P=' ,P 

C 
C 
C 
C 

C CALCULATE DATA FROM ABOVE EQUATION 

C 

c 

REWIND (11) 

C 

PASS =0 
PASS1=0 
C 
C 

30 READ (11, END=31) TIME 

31 IF (EOF (11) .NE. 0) THEN 

C PRINT 32, TIME 

C 32 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE11 
C . AFTER TIME= ’,F16.9) 

GO TO 34 
END IF 


c 

c 

IF (PASS1 .EQ. 0) THEN 

FTIME=TIME 

PASS1=1 

END IF 
C 

PASS=PASS+1 

C 

C 

C 

C 

C 

YVALUE = SLOPE * ( TIME - FTIME ) + YINT 
DELT = TIME - FTIME 
C 

C PRINT*, ' CHECK 2' 

WRITE (10) TIME, YVALUE 
JCNT = JCNT + 1 
IF (JCNT.GE. JMAX) THEN 

WRITE (6,22) YVALUE, SLOPE, TIME, DELT, YINT 
JCNT = 0 
END IF 

22 FORMAT (1F12 . 3, 1E12 . 5, 3F12 . 3) 

GO TO 30 
C 
C 

c 

100 CONTINUE 
C 

PRINT*, ' ' 

PRINT*, ' ' 

C 

PRINT*, 'DATA SPIKE REMOVING STARTED' 

C 

C 

TIME=0 

C 

C 

REWIND (13) 

REWIND (10) 

C 

TIME=0 

C 

c 

55 READ (13, END=550) (DATAPT ( J) , J=l, NCHAN) 

550 IF (EOF (13) .NE. 0) THEN 
PRINT 265, DATAPT (1) 

265 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE13 
AFTER TIME= ',F16.9) 

GO TO 400 
END IF 
C 
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c 

c 


IF 

(DATAPT (1) 

.LT. START) 

GO 

TO 

55 

IF 

(DATAPT (1) 

.GE. STOP) 

GO TO 400 

IF 

(DATAPT (1) 

.LT. TIME) 

GO 

TO 

55 

IF 

(DATAPT (1) 

.GT. TIME) 

GO 

TO 

56 

GO 

TO 57 






c 

c 

c 

c 

c 

56 READ (10,END=556) TIME, YVALUE 

556 IF (EOF (10) .NE. 0) THEN 
PRINT 557, TIME 

557 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE10 IN 2ND LOCATION 

AFTER TIME= ',F16.9) 

GO TO 400 
END IF 
C 
C 

IF (DATAPT (1) .LT. TIME) GO TO 55 
IF (DATAPT (1) .GT. TIME) GO TO 56 
C 
C 

c 

c 

57 IF ( (DATAPT (1) .GE. TIMLAS) .AND. (DATAPT (1) .LE. 

SATTIME) ) GO TO 55 
C 
C 

c 

IF (TIME .NE. DATAPT (1)) THEN 

PRINT*, 'PROBLEM WITH TIME MATCH AT TIME= ' , TIME, DATAPT (1) 
GO TO 400 

END IF 
C 
C 
C 

IF (CHANDV .EQ. 4 .AND. DATAPT (1) .GE. GAPSTP) THEN 

UPP ER=UP P E R2 
LOWER=LOWER2 


END IF 
C 
C 
C 
C 
C 
C 

AUPPER= YVALUE + UPPER 
ALOWER= YVALUE - LOWER 
C 


o n o 


C 

C 

C ELIMINATE SPIKE IF NECCESSARY 
C 

C IF (DATAPT (2 ) . LT . 87000 . AND .DATAPT (3) . GT. -4000 . ) GO TO 55 

C IF(DATAPT(2) .LT. 86000. AND. DATAPT(3) .GT. -4700.) GO TO 55 

C 

C 

C 

IF (DATAPT (CHANDV) .GT. AUPPER .OR. DATAPT (CHANDV) LT 
ALOWER) GO TO 55 

WRITE (12) (DATAPT (I) ,1=1, NCHAN) 

GO TO 55 


400 PRINT*, ' THFIT COMPLETED' 
C 

STOP 

END 
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PROGRAM RCOMBIN (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, TAPE7 , 
TAPE8, TAPE9, TAPE10, TAPE1) 

C 

C THIS ROUTINE WAS WRITTEN TO COMPLEMENT JSRSMTH (THE HIRAP 

C DATA SMOOTHING ROUTINE) WHICH IS LIMITED TO SMOOTHING ONLY 

C ONE CHANNEL AT A TIME. THE PURPOSE OF THIS ROUTINE IS TO 

C COMBINE THREE FILES (X,Y,Z-AXIS) INTO ONE FOR ALL THREE. 

C 

C WRITTEN BY: JOSEPH S. ROWLEY, SEPT 1983 

C MODIFIED BY: ROBIN WADDELL, JAN 1984 

C 
C 

c 

c 

DIMENSION XDATA(IO) , YDATA (10) ,ZDATA(10) 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


INTEGER ISN7, ISN8, ISN9, NCHAN7 , NCHAN8, NCHAN9, 

NAMES8 (10) ,NAMES9 (10) , IUNITS7 (10) , IUNITS8 (10) , 

IUNITS9 (10) , HDR7 (8) , HDR8 (8) , HDR9 (8) , NAMES7 (10) , COUNT 

THE FOLLOWING IS A LIST OF INPUTS TO THIS PROGRAM 

COUNT NUMBER OF CHANNELS TO BE COMBINED 

START START TIME FOR COMBINING FILES 

STOP STOP TIME FOR COMBINING FILES 


PRINT 800 

800 FORMAT (/,/, IX, 'COMBINE STARTED') 


INPUTS GO HERE 

COUNT=2 
START=0 
STOP=100000 . 


C 

c 

c 

c 

c 

c 

c 
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READ TAPE HEADERS 


C 
C 

c 
c 
c 
c 
c 

IF (COUNT .GE. 1 ) THEN 

101 READ (7 , END=102) ISN7,NCHAN7, (NAMES7 (I) , I=1,NCHAN7) , 

(IUNITS7 (I) , I=1,NCHAN7) , (HDR7 (I) , 1=1, 8) 
C 

102 IF (EOF (7) .NE. 0) THEN 
PRINT 103 

103 FORMAT (IX, "EOF FOUND WHEN READING TAPE7 HEADER") 

GO TO 900 

END IF 
C 

PRINT 104, ISN7,HDR7 

104 FORMAT (/, IX, 'FILE ',17,' FOUND HEADER= ' , 8 A1 0 ) 

PRINT 105, (NAMES7 ( I ) , 1=1 , NCHAN7 ) 

PRINT 105, (IUNITS7 (I) , 1=1, NCHAN7) 

PRINT 106 

105 FORMAT (IX, 8 (A10) ) 

106 FORMAT (/) 

END IF 

C 

IF (COUNT . GE . 2 ) THEN 

801 READ (8,END=802) ISN8,NCHAN8, (NAMES8 (I) , I=1,NCHAN8) , 

• (IUNITS8 (I) ,I=1,NCHAN8) , (HDR8 (I) , 1=1, 8) 

802 IF (EOF (8) .NE. 0) THEN 
PRINT 803 

803 FORMAT (8X, "EOF FOUND WHEN READING TAPE 8 HEADER") 

GO TO 900 

END IF 
C 

PRINT 804, ISN8,HDR8 

804 FORMAT (/, IX, 'FILE ',17,' FOUND HEADER= ' , 8A1 0 ) 

PRINT 805, (NAMES8 (I) , I=1,NCHAN8) 

PRINT 805, (IUNITS8 (I) , 1=1, NCHAN8) 

PRINT 806 

805 FORMAT (IX, 8 (A10) ) 

806 FORMAT (/) 

C 

END IF 

IF (COUNT . GE . 3 ) THEN 

901 READ (9, END=902) ISN9, NCHAN9, (NAMES9 (I) , 1=1, NCHAN9) , 

(IUNITS9 (I) , I=1,NCHAN9) , (HDR9 (I) , 1=1, 8) 

c 

902 IF (EOF (9) .NE. 0) THEN 
PRINT 903 

903 FORMAT (IX, "EOF FOUND WHEN READING TAPE 9 HEADER") 

GO TO 900 
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END IF 
C 

PRINT 904, ISN9, HDR9 

904 FORMAT (/, IX, 'FILE ',17,' FOUND HEADER= ' , 8A10) 

PRINT 905, (NAMES9 (I) , I=1,NCHAN9) 

PRINT 905, (IUNITS9 (I) , I=1,NCHAN9) 

PRINT 906 

905 FORMAT (IX, 8 (A10) ) 

906 FORMAT (/) 

END IF 

C 

NCHAN7=COUNT+l 

WRITE (10) ISN7 , NCHAN7 , (NAMES7 (I) , I=1,NCHAN7) , 

(IUNITS7 (I) , I=1,NCHAN7) , (HDR7 (I) , 1=1, 8' 

C 

NCHAN7 =COUNT+ 1 

C MOVE TO DESIRED START AND COMBINE FILES UNITL STOP 

C OR END OF FILE 

C 

XDATA ( 1 ) =0 
YDATA ( 1 ) =0 
ZDATA ( 1 ) =0 

40 IF (COUNT .GE. 1) THEN 

READ (7, END=41) (XDATA (J) , J=1,NCHAN7) 

41 IF (EOF (7) .NE. 0) THEN 
PRINT 4 2, XDATA (1) 

42 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE7 

AFTER TIME= ',F16.9) 

GO TO 900 
END IF 
C 

END IF 

IF (XDATA ( 1 ) . LT . ZDATA ( 1 ) ) GO TO 40 
IF (XDATA ( 1 ) . GT . ZDATA ( 1 ) ) GO TO 50 
GO TO 999 

50 IF (COUNT .GE. 2) THEN 

READ ( 8 , END=5 1 ) (ZDATA (J) , J=1,NCHAN8) 

51 IF (EOF (8) .NE. 0) THEN 
PRINT 52, ZDATA (1) 

52 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE8 

AFTER TIME= ',F16.9) 

GO TO 900 
END IF 
C 

IF (XDATA ( 1 ) . LT . ZDATA ( 1 ) ) GO TO 40 
IF (XDATA ( 1 ) . GT . ZDATA ( 1 ) ) GO TO 50 
END IF 

C 

C 

IF (XDATA ( 1 ) . LT . YDATA ( 1 ) ) GO TO 40 
IF (XDATA ( 1 ) . GT . YDATA ( 1 ) ) GO TO 60 
GO TO 999 


91 


non o no 


60 IF(C0UNT.GE.3)THEN 

READ (9, END=61) (YDATA ( J) , J=l, NCHAN9) 

61 IF (EOF (9) .NE. 0) THEN 
PRINT 62, YDATA (1) 

62 FORMAT (IX, 'EOF FOUND WHEN READING DATA ON TAPE 9 

AFTER TIME= ' ,F16. 9) 

GO TO 900 
END IF 

IF (XDATA ( 1 ) . LT . YDATA ( 1 ) ) GO TO 40 
IF (XDATA ( 1 ) . GT . YDATA ( 1 ) ) GO TO 60 

END IF 

999 CONTINUE 

IF (XDATA ( 1) - START) 40,240,240 

240 IF (STOP - XDATA ( 1 ) ) 300,300,241 

241 CONTINUE 

IF (COUNT .EQ. 2) THEN 

WRITE (10) XDATA ( 1 ) ,XDATA(2) , ZDATA ( 3 ) 

GO TO 40 
END IF 


IF (COUNT . EQ . 3) THEN 

WRITE (10) XDATA ( 1 ) ,XDATA(2) , ZDATA ( 3 ) , YDATA ( 4 ) 

GO TO 40 
END IF 

PRINT 777, XDATA (1) , ZDATA (1 ) , YDATA (1) 

777 FORMAT (IX, 'TIME MISMATCH PRSENT X= ' , F16 . 9, ' Z= ' , F16 . 9, 
' Y= ' , F16 . 9) 

GO TO 900 


300 PRINT 245, XDATA ( 1 ) 

245 FORMAT (IX, 4X, 46HSTOP TIME DESIRED IS LESS THAN LAST TIME READ 
.F13.4) 

900 CONTINUE 
PRINT 888 

888 FORMAT ( ' COMBINE COMPLETED ' ) 

STOP 

END 
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PROGRAM YCONV06 (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=0UTPUT, TAPES, 
* TAPE10=2006, TAPE9=2006, TAPE13=2006) 

INTEGER OUTTAPE 

DIMENSION TIM (15000) , TEMPER (15000, 6) , TEMP (6) 

INPUT BLOCK: CHANGE FOR EACH FLIGHT 


T1 = 65500. 

T2 = 68100. 

C 

1 = 0 
C 

C END INPUT BLOCK 

C 

c 

c 

c 

INTAPE = 8 
OUTTAPE =10 
NFILE = 9 
READ (NFILE) 

10 I = 1+1 

READ (NFILE, END=20) TIM(I) , (TEMPER(I, J) , J=l, 6) 

GO TO 10 
20 CONTINUE 
NT = 1-1 
FINTIM = TIM (NT) 

C 

C 

REWIND (INTAPE) 

REWIND (OUTTAPE) 

30 READ (INTAPE, END=70) TYME , XCOUNT , ZCOUNT , YCOUNT 
C 
C 

IF (TYME.LT.T1) GO TO 30 
IF (TYME.GT.T2) GO TO 70 
C 

IF (TYME. GT. FINTIM) THEN 
DO 40 NN = 1, 6 

TEMP (NN) = 9999. 

40 CONTINUE 
C 

ELSE 

CALL I UNI ( 15000 , NT, TIM, 6, TEMPER, 1, TYME, TEMP, -1, IE) 

C 

END IF 
C 

C CONVERT FROM COUNTS TO UNITS OF MICROGS 

C 

IF (IE.NE.0) THEN 

WRITE (6,50) IE, TYME 

50 FORMAT (2X, ' INTERPOLATION ERROR ' , 13, 'AT TIME = ',1X,F12.4) 


c-x 
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END IF 
C 

C SN 001 SCALE FACTOR VALUES: PRE-MOD 
C 

SFX = -1 . 247237E-3 
SFY = 1 . 253821E-3 
SFZ = -1.246810E-3 
C 

VX = -10 . + (XCOUNT/ 16383 . ) *20 . 

VY = -10 . + (YCOUNT/ 16383 . ) *20 . 

VZ = -10 . + (ZCOUNT/ 16383 . ) *20 . 

C 

C CONVERSION TO MICROG'S WITH SCALE FACTOR 
C 

XMG = VX/ SFX 
YMG = VY/SFY 
ZMG = VZ/ SFZ 
C 

C WRITE NON-DETRENDED MICROG TO OUTPUT TAPE10 

C 

C 

WRITE (OUTTAPE) TYME, XMG, YMG, ZMG, (TEMP (K) , K=: 
C 

IF (TYME.LT. (Tl+1. ) ) THEN 

WRITE (6,60) TYME, XMG, YMG, ZMG, (TEMP (M) ,M=' 
60 FORMAT (2X, 'AT TIME = ',F11.4,'AX AY AZ= ' 

* 'TEMP = ' , 6 (1X,F11.4) ) 

C 

C 

END IF 
GO TO 30 
70 CONTINUE 
C 

80 FORMAT (2X, 'FINAL VALUES TYME, AX, AY, AZ, TEMP= ' 
*3 (IX, Fll . 4 ) 

* , /, 6 (IX, Fll . 4) ) 

WRITE (6,80) TYME, XMG, YMG, ZMG, (TEMP (L) ,L=1, 6) 
C 

WRITE (6,90) T1,T2 

90 FORMAT (2X, 'REQUESTED TIME PROCESSED T1 - T2 ■ 
STOP 
END 


L,6) 

1 , 6 ) 

, 3 (2X, Ell .4) , /, 

, IX, F12 .4, 

= ' , 2 (2X, Fll . 4 ) ) 
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PROGRAM FILLSQR ( INPUT, OUTPUT, TAPE5=INPUT, TAPE6=0UTPUT, 

* TAPE1, TAPE2) 

C 

DIMENSION X (2000) , Y (2000) , Z (2000) , NAMES (10) , IUNITS (10) , 
*HDR (8) , 

*A(3) , B ( 3 ) , C ( 3 ) , SDEV ( 3 ) ,T(2000) , ACC (2000, 3) ,GAPSTRT (100) , 
* GAP STOP (100) , NFIL (100) 

C 

EQUIVALENCE (ACC (1, 1) , X (1 ) ) , (ACC (1, 2) , Z (1) ) 

READ WINDOW SIZE 
READ (5, 53) NPTS, IDEV, FREQ 

READ ( 1 , END=1 ) ISN, NCHAN, (NAMES (I) , 1=1 , NCHAN) , 

* (IUNITS (I) , 1=1, NCHAN) , (HDR (I) , 1=1, 8) 

DO 5 I = 1,100 

GAPSTRT (I) = 1.0E+06 
GAP STOP (I) = 1.0E+06 
NFIL (I) = 0.0 
CONTINUE 

CONTINUE 

IF (EOF (1) .NE. 0) THEN 
WRITE (6, 50) 

IFILE = 1 
GO TO 14 

END IF 

WRITE (2) ISN, NCHAN, (NAMES (I) , 1=1, NCHAN) , (IUNITS (I) , 

*1=1, NCHAN) , 

* (HDR(I) ,1=1,8) 

READ (5, 52) FLT , DAY 
IFLT = FLT 

WRITE (6, 54) IFLT, NPTS, FREQ, IDEV 
WRITE (6, 56) ISN, NCHAN, (HDR (I) , 1=1, 8) 

WRITE (6, 51) NAMES (1) , NAMES (3) 

WRITE (6, 57) IUNITS (1) , IUNITS (3) 

READ (5, 52,END=2) T START, TLIMIT 
GO TO 3 

2 CONTINUE 

TLIMIT =0.0 
TSTART =0.0 

3 CONTINUE 

WRITE (6, 55) TSTART, TLIMIT 
DELTIM = 1.0/FREQ * 5.0 
WRITE (6, 58) DELTIM 
WRITE (6, 59) 

NMED = NPTS/2 
IFILE = 0 
IGAP = 0 
IPTS = NPTS 

READ (1,END=1) T (1) , (ACC (1, J) , J=l, 2) 
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WRITE (2) T ( 1 ) , (ACC ( 1 , J) , J=1 , 2 ) 

TFIRST = T(l) 

C 

4 CONTINUE 

READ (1,END=1) T (1) , (ACC (1, J) , J=l, 2) 

WRITE (2 ) T ( 1 ) , (ACC ( 1 , J) , J=1 , 2 ) 

IF (T (1 ) .LT. TSTART) GO TO 4 
C 

IF (TSTART .EQ. 0.0) THEN 
TSTART = T (1) 

WRITE (6, 60) TSTART 

END IF 
C 

1 = 1 
C 

6 CONTINUE 

1 = 1 + 1 

READ ( 1 , END=1 ) T (I) , (ACC (I, J) , J=l, 2) 

IF (I .EQ. 1) GO TO 6 
C 

IF ( (T (I) - T(I-l)) .LT. DELTIM) THEN 
IF (I .LT. IPTS) GO TO 6 
GO TO 7 

ELSE 

IGAP = IGAP + 1 
GAPSTRT ( IGAP ) = T(I-l) 

GAPSTOP (IGAP) = T (I) 

GAP = T (I) - T(I-l) 

NFIL(IGAP) = GAP * FREQ - 0.5 
IF (IGAP .EQ. 100) GO TO 7 
GO TO 6 

END IF 

CONTINUE 
IPTS = I 

WRITE (6, 62) IPTS, IGAP, T(l) , IPTS, T (IPTS) 

DO 20 L = 1, IGAP 

WRITE (6, 100) L, GAPSTRT (L) ,L, GAPSTOP (L) ,L,NFIL(L) 

100 FORMAT (10X, 8HGAPSTRT(, 112, 4H) = , 1F10 . 3, 5X, 8HGAPSTOP ( , 112, 4H) 
*1F10 . 3, 5X, 5HNFIL ( , 112, 4H) = ,114) 

20 CONTINUE 

C 

IF (IGAP .GT. 0) THEN 

CALL POINTS ( IPTS, T, ACC, A, B,C,SDEV, TSTART) 

END IF 
C 

I STOP = NMED 

IF (IPTS .LT. NPTS) ISTOP = IPTS/2 
IF ( IFILE .EQ. 1) ISTOP = IPTS 
JCNT = 1 
8 CONTINUE 

C 

DO 9 I = 1, ISTOP 
C 
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IF (T (I) .EQ. GAPSTOP (JCNT) ) THEN 
T1 = GAP STRT (JCNT) 

T2 = GAPSTOP (JCNT) 

NFILL = NFIL(JCNT) 

CALL GAPFILL (NFILL, T1 , T2, A, B, C, SDEV, FREQ, IDEV, TSTART) 
JCNT = JCNT + 1 

ENDIF 

C 

WRITE (2 ) T (I) , (ACC (I, J) , J=l, 2) 

9 CONTINUE 
C 

IF (IFILE .EQ. 1) GO TO 15 

ICNT = 0 

JCNT = JCNT - 1 
C 

IF (IGAP .GT. JCNT) THEN 

NCNT = IGAP - JCNT 
C 

DO 10 I = 1 , NCNT 

GAP STRT (I) = GAP STRT (I+JCNT) 

GAPSTOP (I) = GAPSTOP (I+JCNT) 

NFIL(I) = NFIL (I+JCNT) 

ICNT = ICNT + 1 

10 CONTINUE 
C 

ENDIF 

C 

IGAP = ICNT 
C 

IF (JCNT .GT. 0) THEN 
C 

DO 11 I = ICNT+1, JCNT 

GAP STRT (I) = 1.0E+06 
GAPSTOP (I) = 1.0E+06 
NFIL (I) = 0.0 

11 CONTINUE 
C 

ENDIF 

C 

ICNT = 0 
C 

DO 13 I = ISTOP+1, IPTS 

ICNT = ICNT + 1 

T (ICNT) = T (I) 

C 

DO 12 J = 1,2 

ACC (ICNT, J) = ACC (I, J) 

12 CONTINUE 
C 

13 CONTINUE 
C 

I = ICNT 

WRITE (6, 101) T(l) , ICNT, T (ICNT) , IGAP, JCNT 
101 FORMAT (10X,7HT(1) = , 1F10 . 3, 5X, 2HT (, 114, 4H) = ,1F10.3,5X, 
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15 


C 

50 

51 

52 

53 

54 

55 


56 

57 

58 

59 

60 
61 
62 


C 


C 


C 


C 


*7HIGAP = , 112, 5X, 7HJCNT = ,112 ) 
IPTS = NPTS 
GO TO 6 
CONTINUE 
1 = 1-1 
GO TO 7 
CONTINUE 
TLAST = T (IPTS) 

WRITE (6, 61) TFIRST, TLAST 
STOP 


FORMAT (// 5X, 40HEOF FOUND WHEN ATTEMPTING TO READ HEADER) 

FORMAT ( 5X, 7 ( A1 0 , 2X) ) 

FORMAT (4F8.0) 

FORMAT (214, 1F8.0) 

FORMAT (1H1,4X,10HFLT = STS , 112, 5X, 115, 18H POINT WINDOW SIZE, 
*5X, 12HFREQUENCY = ,1F5.1,3H HZ,5X,7HIDEV = ,111 / ) 

FORMAT (5X,13HTIME START = ,1F10.3,8H SECONDS, 5X, 

*13HTIME LIMIT = , 

*1F10 . 3, 8H SECONDS ) 

FORMAT (5X,6HISN = , 113, 5X, 8HNCHAN = ,1I3,5X, 

* 15HFOUND HEADER : , 8A10 //) 

FORMAT (5X, 1A10 //) 

FORMAT (5X, 1 9HMAXIMUM TIME GAP = ,1F8.6,8H SECONDS ) 

FORMAT (1H1 / 26X,23HTIME GAP FILL IN POINTS // 8X, 4HTIME 11X 
*6HX-AXIS, 11X, 6HZ-AXIS, 11X, 6HY-AXIS / ) 

FORMAT (5X, 9HTSTART = , 1F10.3) 

FORMAT (// 5X, 9HTFIRST = , 1F10 . 3, 5X, 8HTLAST = ,1F10.3) 

FORMAT (/10X, 7HIPTS = , 115, 5X, 7HIGAP = , 114, 5X, 7HT (1) = , 1F10 3 
*5X, 2HT (, 114, 4H) = ,1F10.3) ' 

END 

SUBROUTINE BANDSQR (X, Y, NX, SDEV, XSQSUM, XSUM, XYSUM, YSUM, NTOT 
*XCUBSUM, XFORSUM, XSQYSUM, A, B, C) 

DIMENSION X(2000,3),Y(2000,3), SDEV (3) , XSQSUM (3) , XSUM (3) ,NTOT (3) 

I 5S^!4^ SUM(3) ' ^ ^ / B(3) ,C(3) , NX ( 3 ) , XCUBSUM ( 3 ) , XFORSUM (3 ), ^ ' 


DO 2 J = 1,2 

I END = NX ( J) 
L = 0 


DO 1 I = 1, I END 

YEST = A ( J) + B ( J) * X (I, J) + C ( J) 
YTOP = YEST + SDEV ( J) 

YBOT = YEST - SDEV(J) 


* X(I,J)**2 


IF (Y (I, J) .GE. YBOT .AND. Y(I,J) .LE. YTOP) THEN 
L = L + 1 
X(L,J) = X(I,J) 

Y(L,J) = Y (I, J) 

XCUBSUM (J) = XCUBSUM ( J) + X(I,J)**3 
XFORSUM (J) = XFORSUM (J) + X(I,J)**4 
XSUM(J) = XSUM(J) + X (I, J) 
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XSQSUM(J) = XSQSUM(J) + X(I,J)**2 
XSQYSUM ( J) = XSQYSUM ( J) + X(I,J)**2 * Y(I,J) 
XYSUM(J) = XYSUM(J) + X(I,J) * Y(I,J) 

YSUM(J) = YSUM(J) + Y (I, J) 

ENDIF 

CONTINUE 

NTOT(J) = L 
2 CONTINUE 

C 

C WRITE (6, 10) 

C 

C DO 3 I = 1,2 

C WRITE (6, 11) I , NX ( I ) , I , XSUM ( I ) , I , XSQSUM ( I ) , I , XYSUM ( I ) , I , 

C * YSUM(I) , I,XCUBSUM(I) , I,XFORSUM(I) , I, XSQYSUM (I) , 

C * I , NTOT ( I ) 

C3 CONTINUE 

C 

10 FORMAT (/ 15X, 14HBANDSQR OUTPUT ) 

11 FORMAT (10X, 3HNX(, 111, 4H) = , 114, 5X, 5HXSUM(, 111, 4H) = ,1E12.5,5X, 
*7HXSQSUM ( , 111, 4H) = ,1E12.5, / 10X, 6HXYSUM(, 111, 4H) = ,1E12.5,5X, 
*5HYSUM(, 111, 4H) = , 1E12 . 5, 5X, 8HXCUBSUM(, 111, 4H) = ,1E12.5 / 10X, 
*8HXFORSUM(, 111, 4H) = , 1E12 . 5, 5X, 8HXSQYSUM(, 111, 4H) = ,1E12.5,5X, 
*5HNTOT (, 111, 4H) = ,116 / ) 

RETURN 

END 

SUBROUTINE GAPFILL (NFILL, TIM1, TIM2, A, B, C, SDEV, FREQ, IDEV, TSTART) 

C 

DIMENSION Y (3) ,A(3) ,B(3) ,C(3) , SDEV(3) ,DIST (300) ,DNORM(300) 

C 


DATA (DNORM (I) , 1= 

1,100) / 

.50000, . 

50399, . 

50798, .51197, .51595, 

* 

.51994, 

.52392, 

.52790, 

.53188, 

.53586, 

.53983, 

.54380, 


* 

.54776, 








* 

.55172, 

.55567, 

.55962, 

.56356, 

.56749, 

.57142, 

.57535, 


★ 

.57926, 








* 

.58317, 

.58706, 

.59095, 

.59483, 

.59871, 

.60257, 

. 60642, 


* 

. 61026, 








* 

.61409, 

.61791, 

.62172, 

.62552, 

.62930, 

.63307, 

. 63683, 


* 

.64058, 








* 

.64431, 

.64803, 

.65173, 

. 65542, 

.65910, 

.66276, 

. 66640, 

.67003 

* 

.67364, 

.67724, 

.68082, 

.68439, 

.68793, 

.69146, 

.69497, 

.69847 

* 

.70194, 

.70540, 

.70884, 

.71226, 

.71566, 

.71904, 

.72240, 

.72575 

* 

.72907, 

.73237, 

.73565, 

.73891, 

.74215, 

.74537, 

.74857, 

.75175 

★ 

.75490, 

.75804, 

.76115, 

.76424, 

.76730, 

.77035, 

.77337, 

.77637 

* 

.77935, 

.78230, 

.78524, 

.78814, 

.79103, 

.79389, 

.79673, 

.79955 

* 

.80234, 

.80511, 

.80785, 

.81057, 

.81327, 

.81594, 

.81859, 

.82121 

★ 

.82381, 

.82639, 

.82894, 

.83147, 

.83398, 

.83646, 

.83891 

/ 

DATA (DNORM (I) , 1= 

101,200) 

/ .84134 

, .84375 

, .84614, 

.84849, . 

85083, 

* 

.85314, 

.85543, 

.85769, 

.85993, 

.86214, 

.86433, 

.86650, 

.86864 

* 

.87076, 

.87286, 

.87493, 

.87698, 

.87900, 

.88100, 

.88298, 

.88493 

★ 

.88686, 

.88877, 

.89065, 

.89251, 

.89435, 

.89617, 

.89796, 

.89973 

★ 

.90147, 

.90320, 

.90490, 

.90658, 

.90824, 

.90988, 

.91149, 

.91309 

★ 

.91466, 

.91621, 

.91774, 

.91924, 

.92073, 

.92220, 

.92364, 

.92507 
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★ 

.92647, 

.92785, 

.92922, 

.93056, .93189, .93319, 

.93448, 

.93574, 

★ 

.93699, 

.93822, 

.93943, 

.94062, .94179, .94295, 

.94408, 

. 94520, 

★ 

.94630, 

.94738, 

.94845, 

.94950, .95053, .95154, 

.95254, 

.95352, 

* 

.95449, 

.95543, 

.95637, 

.95728, .95818, .95907, 

.95994, 

.96080, 

* 

.96164, 

.96246, 

.96327, 

.96407, .96485, .96562, 

.96638, 

.96712, 

★ 

.96784, 

.96856, 

.96926, 

.96995, .97062, .97128, 

.97193, 

. 97257, 

★ 

.97320, 

.97381, 

. 97441, 

.97500, .97558, .97615, 

.97670 

/ 

DATA (DNORM(I) , 1= 

=201,300) 

/ .97725, .97778, .97831, . 

97882, . 

97932, 

★ 

.97982, 

.98030, 

.98077, 

.98124, .98169, .98214, 

.98257, 

.98300, 

★ 

.98341, 

.98382, 

.98422, 

.98461, .98500, .98537, 

.98574, 

.98610, 

* 

.98645, 

.98679, 

.98713, 

.98745, .98778, .98809, 

.98840, 

.98870, 

* 

.98899, 

.98928, 

.98956, 

.98983, .99010, .99036, 

.99061, 

.99086, 

★ 

.99111, 

.99134, 

.99158, 

.99180, .99202, .99224, 

.99245, 

. 99266, 

★ 

.99286, 

.99305, 

. 99324, 

.99343, .99361, .99379, 

.99396, 

. 99413, 

* 

.99430, 

.99446, 

.99461, 

.99477, .99492, .99506, 

.99520, 

. 99534, 

* 

. 99547, 

. 99560, 

.99573, 

.99585, .99598, .99609, 

.99621, 

.99632, 

★ 

.99643, 

.99653, 

.99664, 

.99674, .99683, .99693, 

.99702, 

.99711, 

* 

.99720, 

.99728, 

.99736, 

.99744, .99752, .99760, 

.99767, 

. 99774, 

* 

.99781, 

.99788, 

. 99795, 

.99801, .99807, .99813, 

.99819, 

.99825, 

* 

.99831, 

.99836, 

. 99841, 

.99846, .99851, .99856, 

.99861 

/ 

DATA (DIST (I), 1=1 

,150) / 

.00, .01, .02, .03, .04, 

.05, . 

06, 

★ 

.07, .08, 

.09, . 

10, .11, 

.12, .13, .14, .15, .16, 

.17, . 

18, 

★ 

.19, .20, 

.21, . 

22, .23, 

.24, .25, .26, .27, .28, 

.29, . 

30, 

* 

.31, .32, 

.33, . 

34, .35, 

.36, .37, .38, .39, .40, 

.41, . 

42, 

* 

.43, .44, 

.45, . 

46, .47, 

.48, .49, .50, .51, .52, 

.53, . 

54, 

* 

.55, .56, 

.57, . 

58, .59, 

.60, .61, .62, .63, .64, 

. 65, . 

66, 

★ 

.67, .68, 

.69, . 

70, .71, 

.72, .73, .74, .75, .76, 

.77, . 

78, 

* 

.79, .80, 

.81, . 

82, .83, 

.84, .85, .86, .87, .88, 

.89, . 

90, 

* 

.91, .92, 

.93, . 

94, .95, 

.96, .97, .98, .99,1.00, 

1.01,1. 

02, 


*1.03,1.04,1.05,1.06,1.07,1.08,1.09,1.10,1.11,1.12,1.13,1.14, 
*1.15,1.16,1.17,1.18,1.19,1.20,1.21,1.22,1.23,1.24,1.25,1.26, 
*1.27,1.28,1.29,1.30,1.31,1.32,1.33,1.34,1.35,1.36,1.37,1.38, 
*1.39,1.40,1.41,1.42,1.43,1.44,1.45,1.46,1.47,1.48,1.49 / 
DATA (DIST (I) , 1=151, 300) / 1 . 5, 1 . 5, 1 . 5, 1 . 5, 1 . 5, 1 . 6, 1 . 6, 
*1.57, 1.58, 1.59, 1. 60,1.61,1. 62, 1. 63, 1.64, 1.65,1.66, 1. 67, 1. 68, 
*1.69,1.70,1.71,1.72,1.73,1.74,1.75,1.76,1.77,1.78,1.79,1.80, 
*1.81,1.82,1.83,1.84,1.85,1.86, 1.87,1.88,1.89,1.90,1.91, 1.92, 
*1.93,1.94,1.95,1.96,1.97,1.98,1.99,2.00,2.01,2.02,2.03,2.04, 
*2.05,2.06,2.07,2.08,2.09,2.10,2.11,2.12,2.13,2.14,2.15,2.16, 
*2.17,2.18,2.19,2.20,2.21,2.22,2.23,2.24,2.25,2.26,2.27,2.28, 
*2.29,2.30,2.31,2.32,2.33,2.34,2.35,2.36,2.37,2.38,2.39,2.40, 
*2.41,2.42,2.43,2.44,2.45,2.46,2.47,2.48,2.49,2.50,2.51,2.52, 
*2.53,2.54,2.55,2.56,2.57,2.58,2.59,2.60,2.61,2.62,2.63,2.64, 
*2.65,2.66,2.67,2.68,2.69,2.70,2.71,2.72,2.73,2.74,2.75,2.76, 
*2.77,2.78,2.79,2.80,2.81,2.82,2.83,2.84,2.85,2.86,2.87,2.88, 
*2.89,2.90,2.91,2.92,2.93,2.94,2.95,2.96,2.97,2.98,2.99 / 

C 

WRITE (6, 11) 

DELTIM = 1.0 /FREQ 
KCNT =19 
KMAX = 20 

IF (IDEV .EQ. 1) CALL RANSET(N) 

C 

DO 2 I = 1, NFILL 
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TIME = TIM1 + DELTIM * I 
IF (TIME .GE. TIM2) GO TO 3 
TIMEX = TIME - TSTART 
C 

DO 1 J = 1,2 

IF (IDEV .EQ. 1) Z = RANF() 

C 

IF (IDEV .EQ. 1 .AND. J .NE. 1) THEN 
C 

IF (Z .GE. 0.5) THEN 

Zl = z 

CALL I UNI (300, 300, DNORM, 1,DIST, 1, Zl, ANS, -1, IE) 
IF (ANS .GT. 3.0) ANS=3 . 0 

ELSE 

Zl = 1.0 - Z 

CALL I UNI (300, 300, DNORM, 1,DIST,1, Z1,ANS,-1, IE) 
IF (ANS .GT. 3.0) ANS=3.0 
ANS = -ANS 

END IF 
C 

DELACC = ANS * SDEV(J) 

ELSE 

DELACC =0.0 

END IF 
C 

Y ( J) = A(J) + B ( J) *TIMEX + C(J) *TIMEX**2 + DELACC 

I CONTINUE 
C 

WRITE (2) TIME, (Y ( J) , J=l,2) 

KCNT = KCNT + 1 
C 

IF (KCNT .EQ. KMAX) THEN 
KCNT = 0 

WRITE (6, 10) TIME, (Y(J) , J=l,2) 

END IF 
CONTINUE 
CONTINUE 

IF (KCNT .NE. 0) WRITE(6,10) TIME, (Y ( J) , J=l, 2) 

RETURN 
C 

10 FORMAT (5X, 1F10. 3,3 (5X,1E12. 5) ) 

II FORMAT ( // 10X, 19HGAPFILL DATA POINTS ) 

END 

SUBROUTINE POINTS (IPTS, T, ACC,A,B,C, SDEV, TSTART) 

C 

DIMENSION T (2000) ,ACC(2000,3) ,XBAR(3) ,VAR(3) ,SDEV(3) ,A(3) ,B(3) , 

* C (3) , XSUM (3) , XSQSUM (3) , NTOTAL ( 3 ) ,YSUM(3) , XYSUM (3) , YBAR (3) ,NX(3) , 

* XSQYSUM (3) , XCUBSUM (3) ,XFORSUM(3) ,TZ(2000,3) ,AZ(2000,3) ,SUM(3) 

C 

ICNT = 0 
ICNTMAX = 3 
C 
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DO 1 1-1,2 

A (I) = 0.0 
B (I) = 0.0 
C(I) = 0.0 
NTOTAL ( I ) - 0 
NX (I) = IPTS 
SDEV(I) = 1.0E06 
XCUBSUM ( I ) =0.0 
XFORSUM (I) =0.0 
XSUM(I) = 0.0 
XSQSUM(I) =0.0 
XSQYSUM (I) =0.0 
XYSUM(I) =0.0 
YSUM(I) = 0.0 

c 

DO 7 J = 1, IPTS 

TZ ( J, I) = T(J) - TSTART 
AZ(J, I) = ACC ( J, I) 

7 CONTINUE 

CONTINUE 

CONTINUE 

CALL BANDSQR (TZ, AZ, NX, SDEV, XSQSUM, XSUM, XYSUM, YSUM, NTOTAL, 
*XCUBSUM, XFORSUM, XSQYSUM, A, B, C) 

ICNT = ICNT + 1 

DO 4 I = 1,2 

WRITE ( 6, 22) I, XSQSUM (I) , I, XSUM (I) , I,XYSUM(I) , I, YSUM (I) , I, 

XCUBSUM (I) , I, XFORSUM (I) , I, XSQYSUM (I) , I, NTOTAL ( I ) 
N = NTOTAL (I) 

XBAR(I) = XSUM (I) /N 
YBAR(I) = YSUM (I) /N 

VAL1 = XCUBSUM ( I ) - XBAR(I) * XSQSUM(I) 

VAL2 = XSQSUM (I) - N * XBAR(I)**2 

DENOM = XFORSUM(I) - XSQSUM (I) **2/N - VAL1**2/VAL2 
C (I) = (XSQYSUM (I) - YBAR(I) * XSQSUM(I) + (N * XBAR(I) * 

* YBAR(I) - XYSUM (I)) * VAL1/VAL2) /DENOM 

B (I) = (XYSUM (I) - N * XBAR(I) * YBAR(I) - C(I) * VAL1) /VAL2 
A (I) = YBAR(I) - B (I) * XBAR(I) - C(I)/N * XSQSUM(I) 

COMPUTE VARIANCE 


C 


3 

C 


4 

C 


SUM (I) = 0.0 
DO 3 J = 1,N 

SUM (I) = SUM (I) + (AZ ( J, I) - A (I) - B ( I) * TZ(J, I) - 
k C(I) * TZ ( J, I) **2) **2 

CONTINUE 

VAR (I) = SUM (I ) / (N - 3) 

SDEV (I) = SQRT (VAR (I) ) 

CONTINUE 
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C IF (ICNT .EQ. 1) WRITE (6, 20) 

C IF (ICNT .EQ. 2) WRITE (6, 21) 

C IF (ICNT .EQ. 3) WRITE (6, 25) 

C IF (ICNT .EQ. 4) WRITE(6,26) 

C WRITE (6,23) 

C 

IF (ICNT .EQ. ICNTMAX) THEN 
WRITE (6, 25) 

WRITE (6, 23) 

C 

DO 5 I = 1,2 

WRITE (6, 24) XBAR(I) , YBAR(I) ,SDEV(I) ,A(I),B(I),C(I), 

* NTOTAL ( I ) 

CONTINUE 

ENDIF 
C 

IF (ICNT .LT. ICNTMAX) THEN 
C 

DO 6 I = 1,2 

NX (I) = NTOTAL (I) 

NTOTAL (I) = 0 
XCUBSUM ( I ) =0.0 
XFORSUM ( I ) =0.0 
XSUM(I) = 0.0 
XSQSUM (I) =0.0 
XSQYSUM (I) =0.0 
XYSUM(I) =0.0 
YSUM(I) = 0.0 
6 CONTINUE 

C 

GO TO 2 

ENDIF 

C 

RETURN 

C 

20 FORMAT (/ 5X,24HFIRST STANDARD DEVIATION ) 

21 FORMAT (/ 5X, 25HSECOND STANDARD DEVIATION ) 

22 FORMAT (/ 10X, 7HXSQSUM ( , 111, 4H) = , 1E12 . 5, 5X, 5HXSUM ( , 111, 4H) = , 
*1E12 . 5, 5X, 6HXYSUM ( , 111, 4H) = , 1E12 . 5, 5X, 5HYSUM ( , 111, 4H) = , 1E12 . 5 

* / 10X, 8HXCUBSUM(, 111, 4H) = , 1E12 . 5, 5X, 8HXFORSUM ( , 111, 4H) = , 
*1E12 . 5, 5X, 8HXSQYSUM ( , 111, 4H) = , 1E12 . 5, 5X, 7HNTOTAL ( , 111, 4H) = , 
*116 / ) 

23 FORMAT (3X, 4HXBAR, 8X, 4HYBAR, 10X, 4HSDEV, 10X, 1HA, 10X, 1HB, 11X, 1HC, 11X, 
*4HNPTS / ) 

24 FORMAT (6E12. 5, 3X, 116) 

25 FORMAT (/ 5X,24HTHIRD STANDARD DEVIATION ) 

26 FORMAT (/ 5X,25HFOURTH STANDARD DEVIATION ) 

END 


103 



PROGRAM GPREM06 (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, TAPE8, TAPE3 
* , TAPE9) 

DIMENSION TEND (5000) , TBEG (5000) , TEMP (6) 

INTEGER INTAPE, OUTTAPE 
COMMON TMID, T1 , T2 , TXMID, TZMID 
COMMON AZSLP, AXSLP, AZINT, AXINT 
COMMON AZSE, AXSE 
COMMON AYSLP, AYINT, AYSE 
C 

NORMLX = 0 
NORMLZ = 0 
AVGZ = 0. 

AVGX = 0. 

NORMLY = 0 
AVGY = 0. 

NCULL = 0 
C 

C UPDATE THE INPUTS WITH RESULTS FROM NCULL 

C 

TIMSCI = 0. 

C 

C INPUT BLOCK: CHANGE FOR EACH FLIGHT 

C 

T1 = 65500. 

T2 = 68000. 

C 

C WRITE (5, 2005) 

C 

c 

C END INPUT BLOCK 

C 

c 

C T1 . . . THE INITIAL TIME OF THE DATA SECTION 
C T2 . . . THE FINAL TIME OF THE DATA SECTION. 

C 

JJ = 1 
10 CONTINUE 

READ (3,20, END=30) TEND (JJ) , TBEG (JJ) 

20 FORMAT (2X, F10 . 2, 2X, F10 . 2) 

C 

C WRITE (6, 602) JJ, TBEG (JJ) , TEND (JJ) 

C 

JJ = JJ+1 
GO TO 10 
30 IGAPS = JJ-1 
C 

WRITE (6,40) IGAPS 

40 FORMAT (2X, 'NUMBER OF GAPS = ’,17) 

C 

C CALCULATE THE MIDPOINT OF TIME 
C 

TMID = (T2-T1) /2.+T1 
C 

C SWITCH INPUT AND OUTPUT DEVICES AFTER RE-WRITING 
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c 


NGAPS = 0 
INTAPE = 8 
REWIND (INTAPE) 


C 

DO 70 LL = 1, IGAPS 

50 READ (8,END=110) TYME, AX, AY, AZ, (TEMP ( J) , J=l, 6) 

IF (TYME.LT.TBEG(LL) ) THEN 

WRITE (9) TYME, AX,AY,AZ, (TEMP (I) , 1=1, 6) 

GO TO 50 
END IF 

IF (TYME. GT. TEND (LL) ) GO TO 60 
AX = 9999. 

AY = 9999. 

AZ = 9999. 

NGAPS = NGAPS+1 

WRITE (6, 952) LL, TBEG (LL) , TEND (LL) , TYME, AX, AY, AZ 

WRITE (9) TYME, AX, AY, AZ, (TEMP (I) ,1=1, 6) 

GO TO 50 

60 WRITE (9) TYME, AX, AY, AZ, (TEMP (I) , 1=1, 6) 

70 CONTINUE 

TRANSFER DATA TO OUTPUT AFTER GAPS ARE EXHAUSTED 

80 READ (8, END=90) TYME, AX, AY, AZ, (TEMP ( J) , J=l, 6) 

WRITE (9) TYME, AX, AY, AZ, (TEMP (J) , J=l, 6) 

GO TO 80 

90 WRITE (6,100) TYME, AX, AY, AZ, (TEMP ( J) , J=l, 6) 

100 FORMAT (2X, ' TYME, AX, AY, AZ, TEMP (1) - (6) = ' , 4 (IX, F12 . 4 ) , /, 2X, 6 (IX, 
* F12 . 4) ) 

110 CONTINUE 

WRITE (6,120) NGAPS 

120 FORMAT (2X, 'NO. OF DATUM REPLACED WITH 9999= ' ,1X,I7) 


C 


INTAPE = 9 
REWIND (INTAPE) 

TAPE 9 SHOULD NOW HOLD ALL 9999 IN THRUST PLACES 

T1 = 65500. 

T2 = 65900. 

CALL STATS PROGRAM TO CHECK STATS FOR 400 SECOND PERIOD 
CALL FINDSLP TO GET SLOPE FOR USE IN FINDSIG 
CALL FINDSLP (INTAPE) 

WRITE (6,130) AXSLP, AXINT, AYSLP, AYINT, AZSLP, AZINT 


C 
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130 FORMAT (2X, 'FIRST RESULT, AXSLP, AXINT= ' , 2X, 2 (E15 . 7, 2X) /, 

* ’ AYSLP , AYINT = ' , 2X, 2 (E15 . 7, 2X) /, ' AZSLP, AZINT= ' , 2X, 

* 2 (E15 . 7, 2X) /) 

CALCULATE STANDARD ERROR TO TEST VALUES AGAINST 
CALL FINDS IG (INTAPE) 

WRITE (6,140) AXSE, AYSE, AZSE 

140 FORMAT (2X, 'FIRST STANDARD ERROR AX,AY,AZ NO CULLING=: ' , /, 3 (2X, 

* E15.7)/) 

END 

SUBROUTINE FINDSIG (INTAPE) 

INTEGER INTAPE, OUTTAPE, IOSTAT, IOST 
DIMENSION TEMP (6) 

REAL XYINT 

COMMON TMID , T1 , T2 , TXMID , TZMID 
COMMON AZSLP, AXSLP, AZINT,AXINT 
COMMON AZSE, AXSE 
COMMON AYSLP, AYINT, AYSE 
REWIND (INTAPE) 

SUMAZSE = 0. 

SUMAYSE = 0. 

SUMAXSE = 0. 

AZSE = 0. 

AXSE = 0. 

AYSE = 0. 

NCOUNT = 0 
NRD = 0 
RES = 0. 

10 READ (INTAPE, END=40) TYME, AX, AY, AZ, (TEMP (N) ,N=1, 6) 

IF (TYME.LT.T1) GO TO 10 
IF (TYME.GT.T2) GO TO 40 
IF (AZ.EQ. 9999. ) GO TO 10 
XX = TYME-TMID 
IF (AZ.EQ. 9999. ) GO TO 30 
ACTZ = AZ 
ACTY = AY 
ACTX = AX 

CALZ = AZSLP* (XX) +AZINT 
CALY = AYSLP* (XX) +AYINT 
CALX = AXSLP* (XX) +AXINT 

SUMAXSE = SUMAXSE+ (ACTX-CALX) **2 
SUMAYSE = SUMAYSE+ (ACTY-CALY) **2 
SUMAZSE = SUMAZSE+ (ACTZ-CALZ) **2 
NCOUNT = NCOUNT+1 
IF (NCOUNT. EQ.l) THEN 

WRITE (6,20) TYME, AX, AY, AZ, (TEMP (K) ,K=1, 6) 

20 FORMAT (2X, 'FIRST DATA POINT READ = ' , 4F14 . 4, /, 2X, 

* '6 TEMP POINTS = ' , 6 (IX, F10 . 3) ) 
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END IF 

30 GO TO 10 
40 CONTINUE 
C 

WRITE (6,50) TYME,AX,AY,AZ, (TEMP (J) , J=l, 6) 

50 FORMAT (2X, 'LAST DATA POINT READ = ' , 4F14 . 4, /, 2X, 
* '6 TEMP POINTS = ' , 6 (IX, 2F12 . 2) ) 

C 

C 

AZSE = SQRT (SUMAZSE/ (NCOUNT-2) ) 

AXSE = SQRT (SUMAXSE/ (NCOUNT-2) ) 

AYSE = SQRT (SUMAYSE/ (NCOUNT-2) ) 

REWIND (INTAPE) 

C 

C 

C 

RETURN 

END 

C 

SUBROUTINE FINDSLP (INTAPE) 

REAL XYINT 

INTEGER INTAPE, OUTTAPE, IOSTAT, IOST 
DIMENSION TEMP (6) 

COMMON TMID , T1 , T2 , TXMID , TZMID 
COMMON AZSLP, AXSLP, AZINT, AXINT 
COMMON AZSE, AXSE 
COMMON AYSLP, AYINT, AYSE 
REWIND (INTAPE) 

SUMX = 0. 

SUMXSQ = 0. 

SUMZSQ = 0. 

SUMYSQ = 0. 

SUMZ = 0. 

SUMY = 0. 

NCOUNT = 0 
RES = 0. 

C 

SUMAZ = 0. 

SUMAX = 0. 

SUMAY = 0. 

SUMAZ T = 0. 

SUMAYT = 0. 

SUMAXT = 0. 

SUMAZ SQ = 0. 

SUMAYSQ = 0. 

SUMAXSQ = 0. 

AZSLP = 0. 

AYSLP = 0. 

AXSLP = 0. 

AYINT = 0. 

AZINT = 0. 

AXINT = 0. 

AZSE = 0. 
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AYSE = 0. 

AXSE = 0. 

SUMAZSE = 0. 

SUMAYSE = 0. 

SUMAXSE = 0. 

CALCULATE STANDARD ERROR ON AZ AND AX 


10 READ (INTAPE, END=50) TYME, AX, AY, AZ, (TEMP (N) ,N=1, 6) 

IF (TYME.LT.T1) GO TO 10 
IF (TYME.GT.T2) GO TO 50 
IF (AZ.EQ. 9999. ) GO TO 10 
IF (AZ.EQ. 9999.) GO TO 40 
XX = TYME-TMID 

SUMAZ = SUMAZ+AZ 
SUMAX = SUMAX+AX 
SUMAY = SUMAY+AY 
SUMAZ T = SUMAZT+ (XX*AZ) 

SUMAXT = SUMAXT+ (XX*AX) 

SUMAYT = SUMAYT+ (XX* AY) 

SUMX = SUMX+XX 
SUMXSQ = SUMXSQ+XX*XX 
SUMZSQ = SUMZSQ+XX*XX 
SUMZ = SUMZ+XX 
NCOUNT = NCOUNT+1 
IF (NCOUNT. EQ.l) THEN 

WRITE (6,20) TYME, AX, AY, AZ, (TEMP (J) , J=l, 6) 

20 FORMAT (2X, 'FIRST DATA POINT READ = ' , 4F14 . 4, /, 2X, 

* ’6 TEMP POINTS = ' , 6 ( IX, F10 . 3) ) 

30 FORMAT (2X, 'LAST DATA POINT READ = ' , 4F14 . 4, /, 2X, 

* '6 TEMP POINTS = ' , 6 (IX, 2F12.2) ) 

END IF 


40 GO TO 10 

50 WRITE (6,30) TYME, AX, AY, AZ, (TEMP (K) ,K=1, 6) 

AZSLP = (NCOUNT*SUMAZT-SUMX*SUMAZ) / (NCOUNT* SUMXSQ-SUMX* SUMX) 
AXSLP = (NCOUNT*SUMAXT-SUMX*SUMAX) / (NCOUNT*SUMXSQ-SUMX*SUMX) 
AYSLP = (NCOUNT*SUMAYT-SUMX*SUMAY) / (NCOUNT*SUMXSQ-SUMX*SUMX) 


AZINT = SUMAZ/NCOUNT-AZSLP* (SUMX/NCOUNT) 
AXINT = SUMAX/NCOUNT -AXSLP* (SUMX/NCOUNT) 
AYINT = SUMAY/NCOUNT -AYSLP* (SUMX/NCOUNT) 

REWIND (INTAPE) 

RETURN 

END 
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PROGRAM FILLCDE ( INPUT, OUTPUT, TAPE5=INPUT 
*, TAPE 6=0UTPUT , TAPE8, TAPE3, TAPE9, TAPE14) 

DIMENSION TEND (5000) , TBEG(5000), TEMP(6) 

DIMENSION ORT (1600) 

DIMENSION XT (1600) ,YT(1600) ,ZT(1600) 

C 

DIMENSION ARAN (10000) ,XRAN (1600) 

DIMENSION AAY (1600) , AAX(1600), AAZ (1600) , AT (1600) 

C 

DIMENSION TX (1600) ,TY(1600), TZ(1600) 

DIMENSION AX2T (1600) , AY2T (1600) ,AZ2T (1600) 

DIMENSION AX2 (1600) , AY2 (1600) , AZ2 (1600) 

DIMENSION W(1600) ,WY (1600, 6) ,WX(1600, 6) ,WZ (1600, 6) 

DIMENSION WAX (6, 6) ,WAY (6, 6) ,WAZ (6, 6) ,BX(6, 1) , BY (6, 1) ,BZ (6, 1) 
DIMENSION RX (1600, 1) , RY (1600, 1) ,RZ (1600, 1) 

DIMENSION SX(1) ,SY(1) ,SZ(1) 

C 

REAL FINTIM 
INTEGER INTAPE, OUTTAPE 
C 

LOGICAL FLGX, FLGZ 


NORMLY = 0 

NCULL = 0 
TIMSCI=0 . 

FLGX = .TRUE. 

FLGZ = .TRUE. 

NPC = 0 
NS AT = 0 
FINTIM = 68050. 

INPUT BLOCK: CHANGE FOR EACH FLIGHT 
TI400 = 65500. 

END INPUT BLOCK 


INTAPE = 9 
REWIND (INTAPE) 

C 

C 

C READ IN CHUNKS OF DATA, 9 SECONDS IN LENGTH 

C 

C 

DO 625 L =1,1600 
625 W (L) = 1.0 
C 

NPC=NPC+1 

1250 IF (NPC . EQ . 1 ) THEN 

TBEG(NPC) = TI400 

TEND (NPC) = TBEG(NPC) + 9. 

ELSE 


TBEG(NPC) = TEND (NPC-1) 

TEND (NPC) = TBEG(NPC) + 9. 

END IF 
C 

C BUILD ORIGINAL DATA SET 

C 

DO 626 1=1, 1600 
RX (1,1) =0. 

RY ( 1 , 1 ) = 0. 

RZ (1, 1) =0 . 

DO 624 J = 1, 6 
WX(I,J) = 0. 

WY (I, J) = 0. 

624 WZ(I,J) = 0. 

626 CONTINUE 

C 

DO 628 K = 1,6 
BX (K, 1) = 0. 

BY (K, 1) = 0. 

BZ (K, 1) = 0. 

DO 629 M = 1, 6 
WAX (K,M) = 0. 

WAY (K,M) = 0. 

629 WAZ (K, M) = 0. 

628 CONTINUE 

C 

C 

ND = 0 
NX = 0 
NY = 0 
NZ = 0 
NAD = 0 
C 

1299 READ (9, END = 1310) TYME, AX, AY, AZ, (TEMP (I) , 1=1, 6) 
IF (TYME . GE . FINTIM) GO TO 1311 
IF (TYME. LT.TBEG (NPC) ) GO TO 1299 
IF ( TYME. GT. TEND (NPC) ) GOTO 1300 
C 
C 

NAD = NAD + 1 

AT (NAD) = TYME - TBEG(l) 

ORT (NAD) = TYME 
TX (NAD) = TEMP (4) 

TY (NAD) = TEMP (5) 

TZ (NAD) = TEMP (6) 

C 

C FILTER DATA FOR ERRONEOUS POINTS 
C 

c 

AAX(NAD) = AX 
AAY(NAD) = AY 
AAZ(NAD) = AZ 
C 

C BUILD INTERIM DATA SET 
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c 

IF (AX.EQ. 9999. ) THEN 
GO TO 1291 
ELSE 

NX = NX + 1 

XT (NX) = TYME - TBEG(l) 
AX2 (NX) = AX 
END IF 
C 

1291 IF (AY.EQ. 9999. ) THEN 

GO TO 1292 
ELSE 

NY = NY + 1 

YT (NY) = TYME - TBEG(l) 
AY2 (NY) = AY 
END IF 
C 

1292 IF (AZ.EQ. 9999. ) THEN 

GO TO 1299 
ELSE 

NZ = NZ + 1 

ZT(NZ) = TYME - TBEG(l) 
AZ2 (NZ) = AZ 
END IF 
C 

GO TO 1299 
1300 CONTINUE 


IF (NX.EQ.O) GO TO 1307 
IF (NY.EQ.O) GO TO 1307 
IF (NZ.EQ.O) GO TO 1307 

CALL LSQPOL ( 1 600 , NX, XT, 1 , AX2 , W, 3, 3, RX, SX, WAX, BX, WX, IERR) 

C WRITE (6, 681) IERR, NX 

681 FORMAT (2 X, ' IERR = ',15,' NUMBER OF DATA = ’,16) 

C 

XSE = (SX(1)/NX)**0.5 
C 
C 
C 

C IF XSE LT 1.0, ASSUME X IS SATURATED AND DO NOT CULL FURTHER 

C ONLY WRITE OUT ORIGINAL DATA OUT TO THE TAPE 

C 
C 

WRITE (6, 7009) TBEG (NPC) , TEND (NPC) 

WRITE (6, 7021) BX(1,1) ,BX(2,1) , BX (3, 1) , XSE, IERR, NX 
IF (BX(3,1) . LT . -1 . 0E10) THEN 

WRITE (6, 17) (AX2T (L) , AX2 (L) , L=1,NDBX) 

GO TO 1307 
END IF 

17 FORMAT (2X, 'ARRAY AX2T AX2= ' , 2 ( IX, F12 . 4) , /, 1600 (2 (IX, F12 . 4 ) ) ) 

7021 FORMAT (2X,'X 0TH, 1ST, 2ND = ' , 3 (IX, E12 .4) , ' XSE= , IERR= ,NX= ', 
*E12.4,2 (IX, 15) ) 
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c 

7036 

C 

C 

C 


C 

c 


c 

c 

c 

c 

c 


CONTINUE 

CALL LSQPOL (1600, NY, YT, 1,AY2, W, 3, 3,RY,SY,WAY, BY, WY, I ERR) 

WRITE (6, 681) IERR, NY 
YSE = ( SY ( 1 ) /NY) **0.5 

WRITE (6, 7010) BY (1,1) , BY (2,1), BY (3,1) , YSE, IERR, NY 

CALL LSQPOL (1600, NZ, ZT, 1, AZ2, W, 3, 3, RZ, SZ, WAZ, BZ, WZ, IERR) 

WRITE (6, 681) IERR, NZ 
ZSE = (SZ (1) /NZ) **0.5 

WRITE (6, 7020) BZ (1, 1) , BZ (2, 1) , BZ (3, 1) , ZSE, IERR, NZ 
SUM SHOULD GIVE SUM OF RESIDUALS FOR EACH POINT 


7009 

c 

FORMAT ( 2 X, 'TBEG = ',F14.4,' 

1 TEND = ' , F14 .4, ) 

7010 

FORMAT (2X,'Y 0TH,1ST,2ND = 1 

1 , 3 (IX, E12 . 4) , ' YSE= , IERR- ,NY= ', 


*E12 .4,2 (IX, 15) ) 


7020 

FORMAT (2X,'Z 0TH, 1ST, 2ND = 

' , 3 (1X,E12.4) , ' ZSE= , IERR= ,NZ= ', 

r 

* E12 .4,2 (IX, 15) ) 


7028 

CONTINUE 



NCULL = 1 



C CULL THE ORIGINAL DATA ON THE BASIS OF 1 STANDARD ERROR 
C 

7025 CONTINUE 
NDBY = 0 
NDBZ = 0 
NDBX = 0 

DO 7030 J = 1, NAD 


C 

c 

c 


8002 

C002 


NAD - NUMBER OF POINTS IN ORIGINAL DATA SET 
TIM = AT ( J) 

IF (XSE.LT.l.) GO TO 8002 
IF (AAX(J) .EQ. 9999. ) GOTO 8002 
CALX = BX (1,1)+ BX (2,1) *TIM + BX (3, 1) *TIM**2 
IF (ABS (AAX (J) -CALX) .LE.XSE) THEN 
NDBX = NDBX + 1 
AX2 (NDBX) = AAX (J) 

AX2T (NDBX) =TIM 
END IF 
CONTINUE 

IF (YSE.LT.l.) GO TO 8003 
IF (AAY (J) .EQ. 9999. ) GO TO 8003 
CALY = BY (1,1) + BY (2,1) *TIM + BY (3, 1) *TIM**2 
IF (ABS (AAY (J) -CALY) .LE. YSE) THEN 
NDBY = NDBY + 1 
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AY2 (NDBY) = AAY(J) 

AY2T (NDBY) = TIM 
END IF 
8003 CONTINUE 

C003 IF (ZSE.LT.l.) GO TO 8010 

IF (AAZ(J) .EQ.9999.) GOTO 8010 
CALZ = BZ (1,1) + BZ (2,1) *TIM + BZ (3, 1) *TIM**2 
IF (ABS(AAZ(J)-CALZ) .LE.ZSE) THEN 
NDBZ = NDBZ + 1 
AZ2 (NDBZ) = AAZ (J) 

AZ2T (NDBZ) = TIM 
END IF 

8010 CONTINUE 

7030 CONTINUE 
C 

C IF (XSE.LT.l.)GO TO 6240 

C 

CALL LSQPOL ( 1600, NDBX, AX2T, 1, AX2 , W, 3, 3, RX, SX, WAX, BX, WX, IERR) 
C 

C WRITE (6, 681) IERR, NDBX 

XSE = (SX(1) /NDBX) **0.5 

WRITE (6, 7050) BX(1,1) ,BX(2,1) ,BX(3,1) , XSE, NCULL, IERR, NDBX 

7050 FORMAT (2X,'X 0TH, 1ST, 2ND = ' , 3 (IX, E12 . 4) , ' XSE = ’,E12.4, 

* ' NCULL, IE, NDBX= ',3 (IX, 15)) 

C 

6240 CONTINUE 

C240 IF ( YSE . LT . 1 . 0) GOTO 6250 

C 

CALL LSQPOL (1600, NDBY, AY2T, 1,AY2,W, 3, 3, RY, SY, WAY, BY, WY, IERR) 
C 

C WRITE (6, 681) IERR, NDBY 

YSE = (SY(1) /NDBY) **0.5 
C 

WRITE (6, 7051) BY(1, 1) , BY (2 , 1 ) , BY (3, 1) , YSE, NCULL, IERR, NDBY 
C 

6250 CONTINUE 

C250 IF (ZSE.LT.l. ) GOTO 6260 

CALL LSQPOL ( 1600, NDBZ, AZ2T, 1,AZ2,W, 3, 3, RZ, SZ, WAZ, BZ, WZ, IERR) 
C 

C WRITE (6, 681) IERR, NDBZ 

ZSE = (SZ (1) /NDBZ) **0.5 
C 

WRITE (6, 7052) BZ(1,1) , BZ (2, 1) , BZ (3, 1) , ZSE, NCULL, IERR, NDBZ 

7051 FORMAT (2X,'Y 0TH, 1ST, 2ND = ' , 3 (IX, E12 . 4) , ' YSE = ', 

* E12.4,' NCULL, IE, NDBY= ',3 (IX, 15)) 

7052 FORMAT (2X,'Z 0TH,1ST,2ND = ' , 3 (IX, E12 . 4) , ' ZSE = \E12.4, 

* ' NCULL, IE, NDBZ= ',3 (IX, 15)) 

C 

6260 CONTINUE 

C 

C CULL THE DATA SET FURTHER 

C 

NCULL = NCULL + 1 
IF (NCULL. GT. 2) GO TO 7026 


GO TO 7025 
7026 CONTINUE 
C 

C SHOULD NOW HAVE DATA WHICH DOES NOT REQUIRE FURTHER CULLS 
C 

7011 FORMAT (2X, 'XSE YSE ZSE= = ' , 3 (2X, E12 . 4) ) 

C 

C GENERATE RANDOM NUMBERS TO REPLACE 9999 'S WITH 
C 

X = 0.0 

DO 1400 J = 1, NAD 
XRAN(J) = XNRANF (X) 

1400 X = 0.0 
C 

C REPLACE 9999 ELEMENTS OF ARRAYS WITH RANDOM NUMBERS 
C 

DO 830 J = 1, NAD 
TIM = AT ( J) 

C IF (XSE . LT . 1 . ) GO TO 9831 

IF (AAX(J) .EQ.9999.) THEN 

AAX(J) = XRAN ( J) *XSE + BX (1, 1) +BX (2, 1) *TIM+BX (3, 1) *TIM**2 
END IF 

9831 CONTINUE 

C831 IF ( YSE. LT. 1. ) GOTO 9833 

IF (AAY (J) .EQ. 9999. ) THEN 

AAY(J) =XRAN ( J) *YSE + BY (1, 1) +BY (2, 1) *TIM+BY (3,1) *TIM**2 
END IF 
9833 CONTINUE 

C833 IF (ZSE.LT.l.) GO TO 9832 

IF (AAZ ( J) .EQ. 9999. ) THEN 

AAZ(J) = XRAN ( J) *ZSE + BZ (1, 1) +BZ (2, 1) *TIM+BZ (3, 1) *TIM**2 
END IF 

9832 RTIM = AT(J) + TBEG(l) 

WRITE (14) RTIM, AAX (J) , AAY (J) , AAZ (J) ,TX(J) ,TY(J) , TZ (J) 

C 

830 CONTINUE 
C 

DO 526 1=1, 1600 
RX (I, 1) =0. 

RY (1,1) = 0. 

RZ (I, 1) =0 . 

DO 524 J = 1, 6 
WX(I,J) = 0. 

WY (I, J) = 0. 

524 WZ(I,J) = 0. 

526 CONTINUE 
C 

DO 528 K = 1,6 
BX (K, 1) = 0. 

BY (K, 1) = 0. 

BZ (K, 1) = 0. 

DO 529 M = 1, 6 
WAX (K,M) = 0. 
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WAY (K,M) = 0. 

529 WAZ (K, M) = 0. 

528 CONTINUE 

C 

c 

C CALCULATE STATS ON DATA AFTER IT HAS BEEN FILLED 

C 

C 

CALL LSQPOL (1600, NAD, AT, 1, AAX, W, 3, 3,RX, SX, WAX, BX, WX, IERR) 

C 

C WRITE (6, 681) IERR , NAD 

XSE = (SX(1) /NAD) **0.5 

WRITE (6, 9150) BX(1,1) , BX (2, 1) , BX (3, 1) , XSE, NCULL, IERR, NAD 

9150 FORMAT (2X, 'FILLED X OTH, 1ST, 2ND ' , 3 (IX, E12 . 4) , ' XSE = ',E12.4, 

* ' NCULL, IE, NAD= ’,3(14)) 

9151 FORMAT (2X, 'FILLED Y OTH, 1ST, 2ND ’ , 3 (IX, E12 . 4) , ' YSE = ',E12.4, 

* ' NCULL, IE, NAD= ',3(14)) 

9152 FORMAT (2X, 'FILLED Z OTH, 1ST, 2ND ' , 3 (IX, E12 . 4) , ' ZSE = ',E12.4, 

* ' NCULL, IE, NAD= ’,3(14)) 

C 

C 

CALL LSQPOL (1600, NAD, AT, 1, AAY, W, 3, 3, RY, SY, WAY, BY, WY, IERR) 

C 

C WRITE (6, 681) IERR, NAD 

YSE = (SY(1) /NAD) **0.5 
C 

WRITE (6, 9151) BY (1,1) , BY (2, 1 ), BY (3, 1) , YSE, NCULL, IERR, NAD 
C 

CALL LSQPOL (1600, NAD, AT, 1, AAZ, W, 3, 3, RZ, SZ, WAZ, BZ, WZ, IERR) 

C 

C WRITE (6, 681) IERR, NAD 

ZSE = (SZ (1) /NAD) **0.5 
C 

WRITE (6, 9152) BZ (1,1) , BZ (2, 1) , BZ (3, 1) , ZSE, NCULL, IERR, NAD 
C 

NPC = NPC + 1 
C 

C CONTINUE CYCLES 
C 

GO TO 1250 
C 

1307 WRITE (6, 943) 

943 FORMAT (2X, 'ONE ARRAY HAS NO DATA IN IT') 

C 

GO TO 1311 
C 

1310 CONTINUE 

NSAT = NSAT + 1 
IF (NSAT.EQ.l) THEN 
WRITE (6, 949) 

949 FORMAT (2X,'X SATURATION REACHED , SIMPLY TRANSFER DATA') 

C 

END IF 
C 
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WRITE REMAINING DATA IN BUFFERTO OUTPUT TAPE 


C 

C 

c 

c 


1450 

C 

C 

C 

1311 

C 

C 

7000 

6079 

C 

C 

C 


DO 1450 J = 1, NAD 

WRITE (14) ORT ( J) , AAX ( J) , AAY ( J) , AAZ ( J) , TX ( J) 
CONTINUE 


TY ( J) , TZ ( J) 


CONTINUE TO TRANSFER DATA IWTH NO CULLLING 
CONTINUE 


WRITE (6, 6079) TYME, AX, AY, AZ 

FORMAT (2X, 'LAST TYME, AX, AY, AZ = * , 4 <2X, F15 . 4) ) 


WRITE (14) EOF 
END 
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PROGRAM INTTIM (INPUT, OUTPUT, TAPE5=INPUT.TAPE6=0UTPUT, TAPE8, TAPE9) 


INTAPE = 8 
REWIND (INTAPE) 

TBEG = 61260 
TLAST = 62696 

ESTABLISH TIME PERIOD OVER WHICH TO AVERAGE 

NSEC = 0 
NRD = 0 
NT = 0 
TXAVG = 0. 

TYAVG = 0. 

TZAVG = 0. 

NPRT = 0 
NRDX = 0 
NRDY = 0 
NRDZ = 0 
AVGX = 0. 

AVGY = 0. 

AVGZ = 0. 

10 NSEC = NSEC+1 
TST = TBEG+0 . 507 

TEND = TST+1.0 

20 READ (INTAPE. END=90) TYME, AX, AY, AZ, TX, TY, TZ 
IF (TYME.GT. TLAST) GO TO 90 
IF (TYME. LT. TST) GO TO 20 
IF (TYME.GT. TEND) GO TO 70 
30 NRD = NRD+1 

IF (NRD.EQ.l) T1 = TYME 

NEED TO SKIP OVER 9999 POINTS WHICH WERE LEFT OVER FROM 
FILTERING IN PROGRAM FILLCDE 

IF (AX.EQ. 9999. ) GO TO 40 
AVGX = AVGX+AX 
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NRDX = NRDX+1 

40 IF (AY. EQ. 9999.) GO TO 50 
AVGY = AVGY+AY 
NRDY = NRDY+1 

50 IF (AZ.EQ. 9999. ) GO TO 60 
AVGZ = AVGZ+AZ 
NRDZ = NRDZ+1 
60 CONTINUE 

TXAVG = TXAVG + TX 
TYAVG = TYAVG + TY 
TZAVG = TZAVG + TZ 
NT = NT + 1 
GO TO 20 
C 
C 

70 CONTINUE 
C 

T2 = TYME 
C 

C CALCULATE AVERAGE AND WRITE OUT 

C 

C FOR THE CASE WHEN SATURATION HAS OCCURED YET THRUSTING 

C STILL ACCOUNTS FOR MOST OF THE DATA. REPLACE THE AVERAGE 

C WHICH IS UNDEFINED WITH DATA REPRESENTING SATURATION. 

IF (NRDX.EQ. 0) THEN 
AVGX =-8000. 

WRITE (6, 7890) TYME 

7890 FORMAT (2X, 'FALSE X SATURATION VALUE AT TYME = 'F12 4) 
ELSE 

AVGX = AVGX/NRDX 
END IF 

IF (NRDY.EQ. 0) THEN 
AVGY = 8000. 

WRITE (6, 7891) TYME 

7891 FORMAT (2X. 'FALSE Y SATURATION VALUE AT TYME = ' F12 4) 
ELSE 

AVGY = AVGY /NRDY 
END IF 

IF (NRDZ.EQ.0) THEN 
AVGZ = -8000. 

WRITE (6, 7892) TYME 

7892 FORMAT (2X, 'FALSE Z SATURATION VALUE AT TYME = \F12.4) 
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ELSE 

AVGZ = AVGZ/NRDZ 
END IF 

TXAVG = TXAVG/NT 
TYAVG = TYAVG/NT 
TZAVG = TZAVG/NT 
ITIME = INT ( (T1+T2) /2) 

RTIME = FLOAT ( ITIME) 

WRITE (9) RTIME, AVGX, AVGY, AVGZ, TXAVG, TYAVG, TZAVG 

NPRT = NPRT + 1 

IF (NPRT. GT.500) GO TO 3200 

WRITE (6,80) RTIME, Tl, T2, NRD, AVGX, AVGY. AVGZ, TXAVG, TYAVG, 
3200 CONTINUE 

80 FORMAT (2X, 'RTIME Tl T2 NRD AVGX AVGY AVGZ = ', /, 2X, IX, F14 5, 
*F14 5), 15, 3 (IX, F14 5), /, IX, '3 TEMPS = \3(1X,F14 5)) 

C 

NRD = 0 
NRDX = 0 
NRDY = 0 
NRDZ = 0 
NT = 0 
TXAVG = 0 
TYAVG = 0 
TZAVG = 0 
AVGX = 0 
AVGY = 0 
AVGZ = 0 

CALCULATE NEW TIME PERIOD 

NSEC = NSEC+ 1 
TST = TEND 
TEND = TST+ 1.0 

GO TO 30 


90 WRITE (6, 100) 

T2 = TYME 

100 FORMAT (2X, 'END OF TAPE 8 ENCOUNTERED ' ) 


TZAVG 
2 (IX, 
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AVERAGE ANY DATA IN THE BUFFER 

AVGX = AVGX/NRDX 
AVGY = AVGY/NRDY 
AVGZ = AVGZ/NRDZ 
TXAVG = TXAVG/NT 
TYAVG = TYAVG/NT 
TZAVG = TZAVG/NT 
I TIME = INT ( (T1+T2) /2) 

RTIME = FLOAT (ITIME) 

WRITE (9) RTIME, AVGX, AVGY, AVGZ, TXAVG, TYAVG, TZAVG 
WRITE (6,110) RTIME, NRD, AVGX, AVGY, AVGZ, TXAVG, TYAVG, TZAVG 
110 FORMAT (2X. ' LST TIM NRD AVGX AVGY AVGZ= ' , IX, F14 . 5, 15, 3 (IX, F14 . 5) 
*/,lX, '3 TEMPS = 1 , 3 (IX, F14 . 5) ) 

C 

END 
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PROGRAM ORBPLTA (INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, TAPE7, 
* TAPE8 , TAPE1 , TAPE3 ) 

C 

C WRITTEN BY HIRAP PROJECT GROUP - JANUARY 1986 

C 

C THIS PROGRAM PLOTS HIRAP ACCELERATION DATA IN MICRO-GS . 

C ALTITUDE IS READ FROM A MERGED HCDAT FILE (IF AVAILABLE) 

C AND IS LINEARLY INTERPOLATED TO MATCH THE HIRAP DATA RATE. 

C ALTITUDE (METERS) IS THEN WRITTEN TO THE MICRO-G FILE 

C AND WILL BE RETAINED FOR THE DATA ANALYSIS PROCESS SO THAT 

C ACCELERATION DATA MAY BE ANALYSED WITH RESPECT TO TIME AND/OR 

C ALTITUDE. 

C 

C 

c 

C IMG = 1 INPUT DATA IN MICRO-GS (FILE 8) 

C 

C ICG = 0 MICRO-GS NOT YET CORRECTED TO THE VEHICLE CG 

C ICG = 1 MICRO-GS CORRECTED TO THE VEHICLE CG 

C 

C IFLT = STS FLIGHT NUMBER 

C 

C IPLTMG = 0 ACCELEROMETER MICRO-G DATA NOT PLOTTED 

C =1 PLOTS ACCELEROMETER DATA IN MICRO-GS 

C 

C IRECAL = 0 OLD (BEFORE MOD OR RECAL) HIRAP CALIBRATIONS 

C IRECAL = 1 RECALIBRATED HIRAP CALIBRATIONS, USING THE 

C CORRECTED TEMPERATURE MONITOR VOLTAGE, VC 

C 

C INORBIT = 0 GROUND CALIBRATION TEMPERATURE BIAS 

C =1 IN-ORBIT BIAS CALIBRATION I 

C =2 IN-ORBIT BIAS CALIBRATION II 

C =3 IN-ORBIT BIAS CALIBRATION III 

C 


C * * 
C * NOTE : CURRENTLY THE IN-ORBIT BIAS CALIBRATIONS ARE * 
C * FOR THE BEFORE-RECAL S/N 001 HIRAP ONLY * 
C * ( STS- 6 , 7 , 8 , 1 1 , 1 3 , AND 24) * 
C * * 


C **************************** ********************************** 

C 

c 

C PLOTTING ROUTINE INPUTS: 

C 

C STRTALT = X AXIS ORIGIN IN KM 

C STOP ALT = X AXIS FINAL ALT IN KM 

C 

C STRTY = Y AXIS ORIGIN IN MICRO-GS (OR COUNTS) 

C STOPY = Y AXIS MAXIMUM MICRO-GS (OR COUNTS) 

C 

C T1 = START TIME FOR FILE, SECONDS 

C 

C T2 = STOP TIME FOR FILE, SECONDS 
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DAY 


DAY OF DATA FILE TO BE PLOTTED 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 


c 


c 


c 


ALTTIC = INCREMENT FOR TICK MARKS ON X AXIS, KM 
YTIC = INCREMENT FOR TICK MARKS ON Y AXIS, MICRO-GS 
ALTLABL = INCREMENT OF LABELED ALT, KM 
YLABL = INCREMENT OF LABELED MICRO-GS 


DIMENSION T (10000) , DATAPT (4 ) , XCOUNT (3) , XMICROG (3) , X ( 10000) , 

Z (10000) , Y (10000) , TIM (5000) ,TF (5000, 3) , VC (5000, 3) , 
NAMES (10) , IUNITS (10) , HDR ( 8 ) , 

HDAT ( 3 ) , HTIME (5000) ,HALT(5000) 


I STOP = 0 
IPNT = 0 
IFILE = 6 
NFILE = 0 
NP = 0 
JPLOT = 0 


READ (5, 60) IFLT, IMG, ICG, IRECAL, INORBIT, IMEAN, IPLTMG 
READ (5,52) STRTALT, S TOP ALT, ALTTIC, ALTLABL, XLENG 
READ (5,52) STRTY, STOPY, YTIC, YLABL, YLENG 
READ (5,52, END=7 ) T1 , T2 , DAY 
DELALT = (STRTALT - STOP ALT) 

DELMG = (STOPY - STRTY) 

FLT = IFLT 
SN = 1.0 

IF (FLT. EQ. 9. OR. FLT. EQ. 26. OR. FLT. EQ. 30) SN = 2.0 
ISN = SN 

IF ( INORBIT. GT. 4) THEN 
WRITE (3, 64) INORBIT 
ISTOP = 1 
END IF 

IF(SN.EQ. 2. AND. INORBIT. NE.0) THEN 
WRITE (3, 65) ISN, INORBIT 
ISTOP = 1 
ENDIF 

IF (DELALT.LT. ALTTIC) THEN 
WRITE (3, 66) DELALT, ALTTIC 
ISTOP = 1 
ENDIF 

IF (DELMG.LT. YTIC) THEN 
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WRITE (3, 67) DELMG, YTIC 
I STOP = 1 
ENDIF 
C 

XX = DELALT/ALTTIC 
NX = DELALT/ALTTIC 
IF (NX. NE. XX) THEN 

WRITE (3, 68) DELALT, ALTTIC 
ISTOP = 1 
ENDIF 
C 

YY = DELMG/YTIC 
NY = DELMG/YTIC 
IF (NY.NE. YY) THEN 

WRITE (3, 69) DELMG, YTIC 
ISTOP = 1 
ENDIF 
C 

IF (ALTLABL.LT. ALTTIC) THEN 
WRITE (3, 70) ALTLABL, ALTTIC 
ISTOP = 1 
ENDIF 
C 

IF (YLABL.LT. YTIC) THEN 
WRITE (3, 71) YLABL, YTIC 
ISTOP = 1 
ENDIF 
C 

XX = ALTLABL/ ALTTIC 
NX = ALTLABL/ ALTTIC 
IF (NX. NE. XX) THEN 

WRITE (3, 72) ALTLABL, ALTTIC 
ISTOP = 1 
ENDIF 
C 

YY = YLABL/YTIC 
NY = YLABL/YTIC 
IF(NY.NE.YY) THEN 

WRITE (3, 73) YLABL, YTIC 
ISTOP = 1 
ENDIF 


IF ( ISTOP. EQ.l) STOP 


IF ( IMEAN . EQ . 1 ) THEN 
KMAX = 1 
ELSE 

KMAX = 350 

IF (FLT . EQ . 32) KMAX = 225 
ENDIF 

KCNT = KMAX - 1 
C 


c 

IF (NFILE.EQ. 4) GO TO 15 
IFILE = IFILE + 1 
NFILE = NFILE + 1 
REWIND (IFILE) 

REWIND (NFILE) 

7 IF (EOF (5) .NE.O) THEN 

WRITE (6, 57) 

STOP 

ELSE 

WRITE (6, 56) IFLT, IMG, ICG, IRECAL, IMEAN, IPLTMG, INORBIT 
WRITE (6,54) STRTALT, STOPALT, STRTY, STOPY 
WRITE (6, 53) IFILE, NFILE, T1,T2, DAY 

END IF 
C 

READ (IFILE, END=10) ISN, NCHAN, (NAMES (I) , I=1,NCHAN) , 

* (IUNITS (I) , 1=1, NCHAN) , (HDR(I) , 1=1,8) 

10 IF (EOF (IFILE) .NE.O) THEN 

WRITE (6, 51) IFILE 
STOP 

ENDIF 

C 

ISN = 1 
NCHAN = 5 
NAMES (2) = 3 HALT 
NAMES (3) = 6HX-AXIS 
NAMES (4) = 6HZ-AXIS 
NAMES (5) = 6HY-AXIS 
IUNITS (2) = 6HMETERS 
IUNITS (3) = 8HMICRO-GS 
IUNITS (4) = 8HMICRO-GS 
IUNITS (5) = 8HMICRO-GS 
C 

WRITE (8) ISN, NCHAN, (NAMES (I) , 1=1, NCHAN) , (IUNITS (I) , 1=1, NCHAN) , 

* (HDR(I) ,1=1,8) 

WRITE (6, 50) ISN, NCHAN, HDR 

C 

C READ HD AT FILE 

C 

READ (NFILE) 

1 = 0 

16 CONTINUE 

1 = 1 + 1 

READ (NFILE, END=17) (HDAT ( J) , J=l, 3) 

HTIME(I) = HDAT ( 1 ) 

HALT (I) = HDAT (3) 

17 IF (EOF (NFILE) .NE.O) THEN 

NT = I - 1 

WRITE (6, 62) NFILE, NT 
GO TO 1 

ENDIF 
GO TO 16 
C 
C 
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READ DATA FILE 


CONTINUE 

READ(IFILE,END=2) TIME, XMG, ZMG, YMG 

IF (TIME . LT . T1 ) GO TO 1 
IF (TIME . GT . T2 ) GO TO 15 

CALL I UNI (5000, NT, HTIME, 1 , HALT , 1, TIME, ALT, -1, IE) 
WRITE (8) TIME, ALT, XMG, ZMG,YMG 
IF (EOF (IFILE) .NE.O) THEN 
WRITE (6, 58) TIME 
GO TO 15 

END IF 
GO TO 1 


CONTINUE 

WRITE (6, 63) (NAMES (I) ,I=1,NCHAN) 
WRITE (6, 36) (IUNITS (I) ,I=1,NCHAN) 


IF ( IPLTMG . EQ . 1 ) THEN 
REWIND (8) 

READ (8) 

PLOT X-AXIS MICROGS AS A FUNCTION OF ALTITUDE 


IY = 1 
CALL PSEUDO 

CALL CALPLT (2 . 0, 2 . 0, -3) 

CALL DRAW1 ( STRTALT , STOP ALT, IY, FLT, SN, ICG, IMEAN, DAY, 
* STRTY, STOPY, XLENG, YLENG, ALTTIC, YTIC, ALTLABL, YLABL) 

READ ( 8 , END=2 1 ) TIME, ALT, XMG, ZMG, YMG 
ALT = ALT/1000. 

IF ( ALT. GT. STRTALT) GO TO 20 

TP LOT = (STRTALT - ALT) * (XLENG/DELALT) 

YPLOT = (XMG - STRTY) * (YLENG/DELMG) 

IF (YPLOT . GE . 0 . AND . YPLOT . LT . YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21, 1) 

END IF 

IF(EOF(8) .NE.O. OR. TIME. GT.T2) GO TO 22 
IF (IMG.EQ. 1) THEN 
KCNT = KCNT + 1 
IF (KCNT.GE.KMAX) THEN 

WRITE (6, 59) TIME, ALT , XMG, ZMG, YMG 
KCNT = 0 
END IF 
END IF 
GO TO 20 


CONTINUE 


c 

c 

c 


30 


31 

C 

32 


C 

C 

C 


40 


41 

C 

C 

42 

C 


GO TO 32 
REWIND (8) 

READ (8) 

PLOT Y-AXIS MICRO-GS AS A FUNCTION OF ALTITUDE 

IY = 2 
CALL NFRAME 

CALL CALPLT (2 . 0, 2 . 0, -3) 

CALL DRAW1 ( STRTALT , STOP ALT, IY, FLT, SN, ICG, IMEAN, DAY, 

* STRTY, STOPY, XLENG, YLENG, ALTTIC, YTIC, ALTLABL, YLABL) 
READ ( 8 , END=3 1 ) TIME, ALT, XMG, ZMG 

ALT = ALT/1000. 

IF (ALT. GT. STRTALT) GO TO 30 

TP LOT = (STRTALT - ALT) * ( XLENG/DELALT ) 

YPLOT = (YMG - STRTY) * ( YLENG/DELMG) 

IF (YPLOT . GE . 0 . AND . YPLOT . LT . YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21, 1) 

END IF 

IF (EOF (8) . NE . 0 . OR. TIME . GT . T2 ) GO TO 32 
GO TO 30 

CONTINUE 
REWIND (8) 

READ (8) 

PLOT Z-AXIS MICRO-GS AS A FUNCTION OF ALTITUDE 

IY = 3 
JPLOT = 0 
CALL NFRAME 

CALL CALPLT (2. 0,2. 0,-3) 

CALL DRAW1 (STRTALT, STOP ALT, IY, FLT, SN, ICG, IMEAN, DAY, 

* STRTY, STOPY, XLENG, YLENG, ALTTIC, YTIC, ALTLABL, YLABL) 
READ ( 8 , END=4 1 ) TIME, ALT, XMG, ZMG 

ALT = ALT/1000. 

IF (ALT. GT. STRTALT) GO TO 40 

TPLOT = (STRTALT - ALT) * (XLENG/DELALT) 

YPLOT = (ZMG - STRTY) * (YLENG/DELMG) 

IF ( YP LOT. GE.0. AND. YPLOT.LT. YLENG) THEN 
CALL PNTPLT (TPLOT, YPLOT, 21,1) 

ENDIF 

IF (EOF (8) .NE. 0 .OR.TIME.GT.T2) GO TO 42 
GO TO 40 


CALL CALPLT (0.0, 0.0, 999) 
ENDIF 


STOP 

C 

50 FORMAT (/ 5X, 7HFILE = , 115, 5X, 8HNCHAN = , 112, 5X, 15HFOUND HEADER = 
* ' 8A10 / ) 

51 FORMAT (// 5X, 49HEOF FOUND WHEN ATTEMPTING TO READ HEADER ON FILE 
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52 

53 

54 
56 


57 

58 

59 

60 
61 
62 

63 
36 

64 


65 


66 


67 


68 


69 


70 


71 


72 


73 


C 


C 

C 


* ,112 ) 

FORMAT (5F 8 0) 

FORMAT (5X,8HIFILE = ,112,/ 5X, 8HNFILE = ,111,/ 5X, 5HT1 = ,1F10.2, 

* / 5X, 5HT2 = , 1F10 . 2, / 5X, 6HDAY = , 1F4 . 0 / ) 

FORMAT (/ 5X, 10HSTRTALT = , 1F10 . 2, 5X, 10HSTOPALT = , 1F10.2 

* / 5X, 8HSTRTY = , 1F10 .2, 7X, 8HSTOPY = ,1F10.2 /) 

FORMAT (1H1,4X,10HFLT = STS , 112, 5X, 6HIMG = , 111, 5X, 6HICG = ,111, 

* 5X, 9HIRECAL = , 111, 5X, 8HIMEAN = , 111, 5X, 9HIPLTMG - ,111, 

* 5X, 10HINORBIT = ,111 /) 

FORMAT (5X, 42 HEND OF FILE FOUND ON TAPE 5 - PROGRAM STOP / ) 
FORMAT (/ 5X, 29HNO POINTS FOUND AFTER TIME = ,1F10.3 / ) 


FORMAT (5F12 .3) 

FORMAT (714) 

FORMAT ( / 10X, 25HTOTAL NUMBER OF POINTS = ,116 / ) 

FORMAT (/ 5X, 32HNUMBER OF MERGED POINTS ON FILE ,1I1,3H = , 

* 114 /) 

FORMAT (/IX, 5 (2X,A10) ) 

FORMAT ( IX, 5(2X,A10) //) 

FORMAT (// 5X, 18HWRONG ! (INORBIT = , 113, 1H) , 

* / 5X, 46HINPUT VALUE OF INORBIT MUST BE = 0,1, 2, 3, OR, 4, 

* / 5X, 9HTRY AGAIN ) 

FORMAT (// 5X, 13HWRONG! (SN = ,1I3,12H, INORBIT = ,1I3,1H), 

* / 5X, 28HFOR S/N 002 INORBIT MUST = 0, 

* / 5X, 4 5H (CURRENTLY NO IN-ORBIT BIAS CALS FOR S/N 002)) 
FORMAT (// 5X, 17HWRONG! (DELALT = ,1F8.0,11H, ALTTIC = ,1F8.0,1H), 

* / 5X, 34HDELALT MUST BE GREATER THAN ALTTIC, 

* / 5X, 9HTRY AGAIN) 

FORMAT (// 5X, 16HWRONG ! (DELMG = ,1F8.0,9H, YTIC = ,1F8.0,1H), 

* / 5X, 31HDELMG MUST BE GREATER THAN YTIC, 

* / 5X, 9HTRY AGAIN) 

FORMAT (// 5X, 17HWRONG! (DELALT = ,1F8.0,11H, ALTTIC = ,1F8.0,1H), 

* / 5X, 44HDELALT MUST BE AN INTEGER MULTIPLE OF ALTTIC, 

* / 5X, 9HTRY AGAIN) 

FORMAT ( / / 5X, 16HWRONG! (DELMG = ,1F8.0,9H, YTIC = ,1F8.0,1H), 

* / 5X, 41HDELMG MUST BE AN INTEGER MULTIPLE OF YTIC, 

* / 5X, 9HTRY AGAIN) 

FORMAT (// 5X, 18HWRONG! (ALTLABL = ,1F8.0,11H, ALTTIC = ,1F8.0,1H), 

* / 5X, 35HALTLABL MUST BE GREATER THAN ALTTIC, 

* / 5X, 9HTRY AGAIN) 

FORMAT (// 5X, 16HWRONG! (YLABL = ,1F8.0,9H, YTIC = ,1F8.0,1H), 

* / 5X, 31HYLABL MUST BE GREATER THAN YTIC, 

* / 5X, 9HTRY AGAIN) 

FORMAT (// 5X, 18HWRONG ! (ALTLABL = ,1F8.0,11H, ALTTIC = ,1F8.0,1H), 

* / 5X, 45HALTLABL MUST BE AN INTEGER MULTIPLE OF ALTTIC, 

* / 5X, 9HTRY AGAIN) 

FORMAT (// 5X, 16HWRONG! (YLABL = ,1F8.0,9H, YTIC = ,1F8.0,1H), 

* / 5X, 41HYLABL MUST BE AN INTEGER MULTIPLE OF YTIC, 

* / 5X, 9HTRY AGAIN) 


END 

SUBROUTINE DRAW1 ( STRTALT , STOPALT, IY, FLT, SN, ICG, IMEAN, DAY, 

* STRTY, STOPY, XLENG, YLENG, ALTTIC, YTIC, ALTLABL, YLABL) 

THIS ROUTINE DRAWS GRID FOR HIRAP ACCELEROMETER VS TIME PLOTS 
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IY = 1 FOR X AXIS 

= 2 FOR Y AXIS 

= 3 FOR Z AXIS 

DIMENSION TITLE1 (5) , TITLE2 ( 4 ) , TITLE3 (8) , YCHAR (3) , LABEL1 (6) , 

* LABEL2 (4) , LABEL 3 (2) , LABEL4 (2) 

DATA TITLE1 / 10HHIRAP S/N , 10H00 UNCORR, 10HECTED ACCE, 

* 10HLEROMETER , 10HDATA, STS- / 

DATA TITLE2 / 10HHIRAP S/N ,10H00 ACCELE, lOHROMETER DA, 

* 10HTA - STS / 

DATA TITLE3 / 1 OHCORRECTED , 10HTO VEHICLE, 10H CG / 

DATA TITLE3 / 10HCALCULATED, 10H INDUCED A, 10HCCELERATIO, 

* 10HN DUE TO H, 10HIRAP OFFSE, 10HT FROM VEH, 

C * 10HICLE CG, , 10HSTS-32 / 

DATA YCHAR / 1HX, 1HY, 1HZ / 

DATA LABEL1 / 10H AXIS MIC, 10HRO-GS AS A, 10H FUNCTION , 

* 10HOF ALTITUD, 10HE, KM - DA, 10HY / 

DATA LABEL2 / 10HFILE : MG0,10H6II IN-OR, 10HBIT BIAS C, 

* 10HALIBRATION / 

DATA LABEL3 / 10HFILE : MGO, 10H6II / 

DATA LABEL4 / 10HONE SECOND, 1 OH MEAN / 

C 

DELALT = (STRTALT - STOP ALT) 

DELMG = (STOPY - STRTY) 

BIGTICX = ALTLABL/ALTTIC 
BIGTICY = YLABL/YTIC 
Y2 = (-STRTY/DELMG) * YLENG 
CALL CALPLT (0.0, YLENG, 2) 

CALL CALPLT (XLENG, 0.0,3) 

CALL CALPLT ( 0 . 0 , 0 . 0 , 2 ) 

CALL CALPLT (0.0, Y2, 3) 

CALL CALPLT (XLENG, Y2, 2) 

C 

C DRAW TICK MARKS ON X AXIS 

C 

NX = DELALT/ALTTIC 
YBAR =0.0 
KCNT = 0 
DELX = XLENG/NX 
I END = NX 
DO 1 J = 1, IEND 
KCNT = KCNT + 1 
XBAR = DELX * J 
IF (KCNT. EQ. BIGTICX) THEN 
DELY =0.14 
KCNT = 0 
ELSE 

DELY =0.09 
END IF 

CALL CALPLT (XBAR, YBAR, 3) 

CALL CALPLT (XBAR, DELY, 2) 

1 CONTINUE 
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c 

C DRAW TICK MARKS ON Y AXIS 

C 

NY = DELMG/YTIC 
KCNT = 0 
XBAR =0.0 
DELY = YLENG/NY 
IEND = NY 
DO 3 J= 1, IEND 
KCNT = KCNT + 1 
IF (KCNT . EQ . BIGTICY) THEN 
DX = 0.14 
KCNT = 0 
ELSE 

DX = 0.09 
ENDIF 

YBAR = DELY * J 

CALL CALPLT (XBAR, YBAR, 3) 

CALL CALPLT (DX, YBAR, 2) 

3 CONTINUE 

C 

C LABEL X AXIS 

C 

DELX = DELX * BIGTICX 
YBAR = -0.25 

XVAL = STRTALT + ALTLABL 
IEND = NX/BIGTICX + 1 
DO 5 I = 1, IEND 
XVAL = XVAL - ALTLABL 
XST = - 0.20 

XBAR = XST + DELX * (1-1) 

CALL NUMBER (XBAR, YBAR, 0.10, XVAL, 0. 0,-1) 

5 CONTINUE 
C 

C LABEL Y AXIS 

C 

YST = -0.05 

DELY = DELY * BIGTICY 

IEND = NY/BIGTICY + 1 

DO 6 I = 1 , IEND 

YBAR = YST + DELY * (1-1) 

YVAL = STRTY + YLABL * (1-1) 

XST = -0.45 

IF (YVAL. LE. -1000) XST = -0.55 

IF (YVAL. EQ. 0.0) XST = -0.17 

IF (YVAL. GT. 0.0) XST = -0.39 

IF ( YVAL. GE. 1000) XST = -0.49 

CALL NUMBER (XST, YBAR, 0.10, YVAL, 0. 0,-1) 

6 CONTINUE 
XBAR =1.0 

YBAR = YLENG +1.0 
IF (ICG.EQ. 1) THEN 

CALL CHARACT (XBAR, YBAR, 0.10, TITLE2, 0.0,40) 
ELSE 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


CALL CHARACT (XBAR, YBAR, 0 . 10, TITLE1, 0.0,50) 

ENDIF 

XBAR = XBAR +1.12 

CALL NUMBER (XBAR, YBAR, 0.10, SN, 0. 0,-1) 

IF (ICG. EQ. 1) THEN 

XBAR = XBAR +2.48 
ELSE 

XBAR = XBAR +3.60 
ENDIF 

CALL NUMBER (XBAR, YBAR, 0.10, FLT,0. 0,-1) 

XBAR =1.0 

YBAR = YLENG +0.75 

IF ( IMEAN . EQ . 1 ) THEN 

CALL CHARACT (XBAR, YBAR, 0 . 10, LABEL4, 0.0,20) 

YBAR = YLENG +0.50 
ELSEIF ( ICG . EQ . 1 ) THEN 

CALL CHARACT (XBAR, YBAR, 0 . 10, TITLE3, 0.0,80) 

YBAR = YLENG +0.50 
ENDIF 

CALL CHARACT (XBAR, YBAR,0. 10, YCHAR(IY) ,0.0,1) 

CALL CHARACT (XBAR, YBAR, 0 . 10, LABEL 1, 0 . 0, 60) 

XBAR = XBAR +4.80 

CALL NUMBER (XBAR, YBAR, 0.10, DAY, 0. 0,-1) 

XBAR =1.0 
YBAR = YLENG +0.50 
IF (IMEAN.EQ. 1 .OR. ICG.EQ. 1) THEN 
YBAR = YLENG +0.25 
ENDIF 

IF (ICG.EQ. 1) THEN 

CALL CHARACT (XBAR, YBAR, 0 . 10, LABEL3, 0.0,20) 

ELSE 

CALL CHARACT (XBAR, YBAR, 0 . 10, LABEL2, 0.0,40) 

ENDIF 

RETURN 

END 

SUBROUTINE ORBCAL1 (XCOUNT, TEMP, XMICROG) 

THIS ROUTINE COMPUTES THE SCALE FACTOR AND THE BIAS IN THE X, Y, 

AND Z ACCELEROMETERS FOR HIRAP S/N 001 USING THE CALCULATED TEMPERATURE 
FROM THE OLD (BEFORE MOD) CALIBRATIONS. THE INPUT IS XCOUNT, 

AND THE OUTPUT ACCELEROMETER DATA IN MICRO-GS IS XMICROG. 

THE MICRO-G CALIBRATION ROUTINE USED HERE IS THE IN-ORBIT 
FLIGHT DERIVED SET OF EQUATIONS FOR THE TEMPERATURE DEPENDENT 
BIAS. THIS ROUTINE IS A FIRST ATTEMPT AT A MORE ACCURATE BIAS 
DETERMINATION THAN CURRENT GROUND CALIBRATION TECHNIQUES. 

DIMENSION B (3) , BCOEF(4,3), SF(3), TEMP(3), XCOUNT(3), XMICROG(3), 

* VX (3) 

DATA BCOEF / 2135.0, -58.477, 0.44717, -0.0019150, 

* -931.0, 26.091, -0.24936, 0.0011841, 

* 1653.0, -51.220, 0.30606, -0.00096787 / 
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SF (1) = -1.247237E-3 
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SF (2) = 1 . 253821E-3 

SF (3) = -1 . 246810E-3 


COMPUTE ACCELEROMETER VOLTAGES FROM COUNTS DATA 
DO 1 I = 1,3 

VX(I) = -10.0 + XCOUNT(I) /16383.0 * 20.0 
CONTINUE 

COMPUTE BIAS FOR ALL THREE AXES 
DO 2 I = 1,3 

B (I) = ( ( BCOEF (4,1) * TEMP (I) + BCOEF(3,I)) * TEMP (I) + 
* BCOEF (2, I)) * TEMP (I) + BCOEF (1,1) 

CONTINUE 


COMPUTE ACCELERATION IN MICRO-GS 
DO 3 I = 1,3 

XMICROG (I) = VX (I) /SF (I) -B(I) 

CONTINUE 

RETURN 

END 

SUBROUTINE ORBCAL2 (XCOUNT, TEMP, XMICROG) 

THIS ROUTINE COMPUTES THE SCALE FACTOR AND THE BIAS IN THE X, Y, 

AND Z ACCELEROMETERS FOR HIRAP S/N 001 USING THE CALCULATED TEMPERATURE 
FROM THE OLD (BEFORE MOD) CALIBRATIONS. THE INPUT IS XCOUNT, 

AND THE OUTPUT ACCELEROMETER DATA IN MICRO-GS IS XMICROG. 

THE MICRO-G CALIBRATION ROUTINE USED HERE IS THE IN-ORBIT 
FLIGHT DERIVED SET OF EQUATIONS FOR THE TEMPERATURE DEPENDENT 
BIAS. THIS ROUTINE IS AN ATTEMPT AT A MORE ACCURATE BIAS 
DETERMINATION THAN CURRENT GROUND CALIBRATION TECHNIQUES. 

DIMENSION B( 3) , BCOEF(4,3), SF(3), TEMP(3), XCOUNT(3), XMICROG(3), 

* VX (3) 

DATA BCOEF / 1241., 3.50654,-0.7643, 0.0057957, 

* 217., -39.143, 0.9526, -0.0060287, 

* 953., -2.17931,-0.6482, 0.0050837 / 

SF (1) = -1 . 247237E-3 
SF (2) = 1 . 253821E-3 

SF (3) = -1 . 24 6810E-3 


COMPUTE ACCELEROMETER VOLTAGES FROM COUNTS DATA 
DO 1 I = 1,3 

VX(I) = -10.0 + XCOUNT (I) /16383.0 * 20.0 
CONTINUE 


1 
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c 

C COMPUTE BIAS FOR ALL THREE AXES 

C 

DO 2 1 = 1,3 

B (I) = ( (BCOEF (4,1) * TEMP (I) + BCOEF(3,I)) * TEMP (I) + 

* BCOEF (2, I)) * TEMP (I) + BCOEF (1,1) 

2 CONTINUE 
C 

C 

C COMPUTE ACCELERATION IN MICRO-GS 

C 

DO 3 I = 1,3 

XMICROG ( I ) = VX(I)/SF(I) - B(I) 

3 CONTINUE 
C 

RETURN 

END 

SUBROUTINE ORBCAL3 (XCOUNT, TEMP , XMICROG) 

C 

C THIS ROUTINE COMPUTES THE SCALE FACTOR AND THE BIAS IN THE X, Y, 

C AND Z ACCELEROMETERS FOR HIRAP S/N 001 USING THE CALCULATED TEMPERATURE 

C FROM THE OLD (BEFORE MOD) CALIBRATIONS. THE INPUT IS XCOUNT, 

C AND THE OUTPUT ACCELEROMETER DATA IN MICRO-GS IS XMICROG. 

C THE MICRO-G CALIBRATION ROUTINE USED HERE IS THE IN-ORBIT 

C FLIGHT DERIVED SET OF EQUATIONS FOR THE TEMPERATURE DEPENDENT 

C BIAS. THIS ROUTINE IS AN ATTEMPT AT A MORE ACCURATE BIAS 

C DETERMINATION THAN CURRENT GROUND CALIBRATION TECHNIQUES. 

C 

DIMENSION B( 3) , BCOEF(4,3), SF (3) , TEMP (3) , XCOUNT(3), XMICROG(3), 

* VX (3) 

C 

DATA BCOEF / 2465., -56.2229, 0.25003, 0.0, 

* -916., 22.503, -0.12344, 0.0, 

* 1737., -49.3751, 0.23295, 0.0 / 

C 

SF (1) = -1.247237E-3 
SF (2) = 1 . 253821E-3 

SF (3) = -1.246810E-3 
C 
C 

C COMPUTE ACCELEROMETER VOLTAGES FROM COUNTS DATA 

C 

DO 1 I = 1,3 

VX(I) = -10.0 + XCOUNT (I) /I 6383.0 * 20.0 

1 CONTINUE 
C 

C COMPUTE BIAS FOR ALL THREE AXES 

C 

DO 2 I = 1,3 

B (I) = ((BCOEF (4, I) * TEMP (I) + BCOEF (3, I)) * TEMP (I) + 

* BCOEF (2, I)) * TEMP (I) + BCOEF (1,1) 

2 CONTINUE 
C 

C 
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C COMPUTE ACCELERATION IN MICRO-GS 

C 

DO 3 I = 1,3 

XMICROG ( I ) = VX (I) /SF (I) -B(I) 

3 CONTINUE 

C 

RETURN 

END 

SUBROUTINE XCALIB1 (XCOUNT, TEMP , XMICROG) 

C 

C THIS ROUTINE COMPUTES THE SCALE FACTOR AND THE BIAS IN THE X, Y, 

C AND Z ACCE LE ROMETERS FOR HIRAP S/N 001 USING THE CALCULATED TEMPERATURE 

C FROM THE OLD (BEFORE MOD) CALIBRATIONS. THE INPUT IS XCOUNT, 

C AND THE OUTPUT ACCELEROMETER DATA IN MICRO-GS IS XMICROG. 

C 

DIMENSION B( 3) , BCOEF(4,3), SF(3), TEMP(3), XCOUNT(3), XMICROG(3), 

* VX (3) 

C 

DATA BCOEF / 1598.1124, -33.327639, 0.18039702, -8. 1516194E-4, 

* -607.12033, 13.236853, -0.12054064, 6 . 47 96047E-4 , 

* 1159.2864, -33.800394, 0.12802022, -2 . 9966848E-4 / 

C 

SF (1) = -1 . 247237E-3 
SF (2) = 1 . 2538210E-3 
SF (3) = -1 . 246810E-3 
C 
C 

C COMPUTE ACCELEROMETER VOLTAGES FROM COUNTS DATA 

C 

DO 1 I = 1,3 

VX(I) = -10.0 + XCOUNT (I) /16383.0 * 20.0 

1 CONTINUE 
C 

C COMPUTE BIAS FOR ALL THREE AXES 

C 

DO 2 I = 1,3 

B (I) = ((BCOEF (4, I) * TEMP (I) + BCOEF (3, I)) * TEMP (I) + 

* BCOEF (2, I)) * TEMP (I) + BCOEF (1,1) 

2 CONTINUE 
C 

C 

C COMPUTE ACCELERATION IN MICRO-GS 

C 

DO 3 I = 1,3 

XMICROG ( I ) = VX ( I ) /SF ( I ) -B(I) 

3 CONTINUE 
C 

RETURN 

END 

SUBROUTINE XCALIB2 (XCOUNT, TEMP, XMICROG) 

C 

C THIS ROUTINE COMPUTES THE SCALE FACTOR AND THE BIAS IN THE X, Y, 

C AND Z ACCELEROMETERS FOR HIRAP S/N 002 USING THE CALCULATED TEMPERATURE 

C FROM THE OLD (BEFORE RECAL) CALIBRATIONS. THE INPUT IS XCOUNT, 


133 


c 

c 


c 


c 


c 

c 

c 


1 

c 

c 

c 


2 

c 

c 

c 

c 


3 

C 


C 

C 

C 

c 

c 

c 

c 


c 


c 

c 

c 


AND THE OUTPUT ACCELEROMETER DATA IN MICRO-GS IS XMICROG. 
^DIMENSION B (3), BCOEF(4,3), SF(3), TEMP(3), XCOUNT(3), XMICROG(3), 


DATA BCOEF 

* 

* 


/ 1432.0258, -34.821054, 
-3485.1197, 45.521179, 
1017.3523, -21.741313, 


0.18235912, -5. 9645121E-4, 
-0.18902003, 5 . 8390244E-4, 
0.12689434, -4 . 0574082E-4 / 


SF(1) = -1 . 248570E-3 
SF (2) = 1 . 269482E-3 

SF(3) = -1 . 256565E-3 


COMPUTE ACCELEROMETER VOLTAGES FROM COUNTS DATA 
DO 1 1-1,3 

VX(I) = -10.0 + XCOUNT (I) /16383 . 0 * 20.0 
CONTINUE 


COMPUTE BIAS FOR ALL THREE AXES 


DO 2 1-1,3 
B ( I) = ((BCOEF (4, I) 

* BCOEF (2, 1)) 

CONTINUE 


* TEMP (I) 4 - BCOEF (3, I)) 
* TEMP (I) + BCOEF (1,1) 


* TEMP (I) + 


COMPUTE ACCELERATION IN MICRO-GS 
DO 3 I = 1,3 

XMICROG (I) = VX (I) /SF (I) - B(I) 
CONTINUE 


RETURN 

END 

SUBROUTINE RECAL1 (XCOUNT, VTEMP, XMICROG) 


THIS ROUTINE COMPUTES THE SCALE FACTOR AND THE BIAS IN THF X v 
AND Z ACCELEROMETERS FOR THE RECALIBRATED HIRAP S/N 001 USING ' 
THE CORRECTED TEMPERATURE VOLTAGE, VTEMP. 

THE INPUT ACCELEROMETER DATA IN COUNTS IS XCOUNT 

AND THE OUTPUT ACCELEROMETER DATA IN MICRO-GS is' XMICROG. 


DIMENSION B (3) , BCOEF(4,3), SF(3) 
* XCOUNT ( 3 ) , XMICROG ( 3 ) , 


, SFCOEF (4,3), 
VX (3) 


VTEMP (3) , 


DATA BCOEF / 111.50, -668.65, 11.765, 0.00, 71.90, 186 29 0 00 

* 3.6768, -282.50, -619.206, 26.135 0.00 /' ' 

* ATA SFC0EF / 13 ^ 6 - 07 ' °- 00 ' 0.00, 0.020696, 1252.56, 0.00, 

0.00, 0.00, -1246.0, 5.1906, -2.7447, 

* 0.33579 / 


COMPUTE ACCELEROMETER VOLTAGES FROM COUNTS DATA 
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DO 1 I = 1,3 

VX(I) = -10.0 + XCOUNT (I) / 1638 3 . 0 * 20.0 
CONTINUE 

COMPUTE BIAS FOR ALL THREE AXES 
DO 2 I = 1,3 

B (I) = ( (BCOEF (4,1) * VTEMP(I) + BCOEF(3,I)) * VTEMP(I) + 

* BCOEF (2, I)) * VTEMP(I) + BCOEF (1,1) 

CONTINUE 

COMPUTE SCALE FACTOR FOR ACCELEROMETER 
DO 3 I = 1,3 

SF (I) = ( ( ( SFCOEF (4,1) * VTEMP(I) + SFCOEF(3,I)) * VTEMP(I) + 

* SFCOEF (2, I)) * VTEMP(I) + SFCOEF (1, I) ) /10 . 0**6 
CONTINUE 

COMPUTE ACCELERATION IN MICRO-GS 
DO 4 I = 1,3 

XMICROG ( I ) = VX (I ) /SF (I ) - B(I) 

CONTINUE 

RETURN 

END 

SUBROUTINE RECAL2 ( XCOUNT , VTEMP , XMICROG) 

THIS ROUTINE COMPUTES THE SCALE FACTOR AND THE BIAS IN THE X, Y, 
AND Z ACCELEROMETERS FOR THE RECALIBRATED HIRAP S/N 002 USING 
THE CORRECTED TEMPERATURE VOLTAGE, VTEMP. 

THE INPUT ACCELEROMETER DATA IN COUNTS IS XCOUNT, 

AND THE OUTPUT ACCELEROMETER DATA IN MICRO-GS IS XMICROG. 

DIMENSION B (3) , BCOEF(4,3), SF(3), SFCOEF(4,3), VTEMP(3), 

* XCOUNT ( 3 ) , XMICROG ( 3 ) , VX ( 3 ) 

DATA BCOEF / 6429.8, -567.06, 39.292, -7.5809, -827.8, 1014.78, 

* -97.844, 11.805, 6100.3, -467.94, 79.069, -12.521 / 
DATA SFCOEF / -1250.035, 3.372104, -1.283124, 0.1437924, 1271.533, 

* -1.344372, 0.0, 0.04102193, -1253.671, -2.584656, 

* 1.044413, -0.1370558 / 

COMPUTE ACCELEROMETER VOLTAGES FROM COUNTS DATA 
DO 1 I = 1,3 

VX(I) = -10.0 + XCOUNT (I) /16383.0 * 20.0 
CONTINUE 

COMPUTE BIAS FOR ALL THREE AXES 
DO 2 I = 1,3 

B (I) = ((BCOEF (4, I) * VTEMP (I) + BCOEF (3, I)) * VTEMP (I) + 

* BCOEF (2,1) ) * VTEMP (I) + BCOEF(l,I) 
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CONTINUE 


COMPUTE SCALE FACTOR FOR ACCELEROMETER 
DO 3 I = 1,3 

SF (I) = ( ( (SFCOEF (4,1) * VTEMP(I) + SFCOEF(3,I)) * VTEMP(I) + 
* SFCOEF (2, I)) * VTEMP(I) + SFCOEF (1, I) ) /10. 0**6 

CONTINUE 

COMPUTE ACCELERATION IN MICRO-GS 
DO 4 1-1,3 

XMICROG (I) =VX(I)/SF(I) -B(I) 

4 CONTINUE 

C 

RETURN 

END 

6 1 0 0 4 0 1 

160.0 60.0 2.0 20.0 8.0 

8000.0 2000.0 250.0 1000.0 5.0 

64500.0 66500.0 99.0 
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PROGRAM TYMAVG ( INPUT, OUTPUT, TAPE5=INPUT, TAPE6=OUTPUT, TAPE7 , TAPE8 , 
* TAPE 9) 

C 

DIMENSION DATA ( 7 ) , NAMES (10) , IUNITS (10) ,IHDR(8) 

C 

KOUNT1=0 
KOUNT2=0 
KNTX = 0 
KNTZ = 0 
KNTY = 0 
SUMXMG=0. 

SUMALT=0 . 

SUMYMG=0 . 

SUMZMG=0 . 

JMP=0 

KHEAD=1 

C 

READ (7) 

READ (7) 

C 

IF(KHEAD.EQ.l) GOTO 7 

5 READ (7, END=1000) ISN,NCHAN, (NAMES (I) , I=1,NCHAN) , (IUNITS (I) , 

. 1=1, NCHAN) , (IHDR(I) ,1=1,8) 

C 

WRITE (9) ISN, NCHAN, (NAMES (I) , 1=1, NCHAN) , (IUNITS (I) , 

.1=1, NCHAN), (IHDR(I) , 1=1, 8) 

C 

7 NCHAN=4 

C 

10 READ (7 , END=2000 ) (DATA (I) , 1=1, NCHAN) 

KOUNT 1 =KOUNT 1+1 
TYM=DATA ( 1 ) 

TYMINT=INT (TYM) 

TYMDEC=TYM-TYMINT 
HUNS=TYMDEC*100 . 

IF ( JMP . GT . 0 ) GOTO 15 
IF (KOUNT2 . GT . 1 ) GOTO 15 
IF (INT (HUNS) /50. .NE. 1) GOTO 10 
15 IF (INT (HUNS) /50 . . EQ. 1 . AND . KOUNT2 .GT. 1) GOTO 20 

KOUNT2=KOUNT2+l 
C 

c 

C ALT=DATA (2) 

C XMG=DATA ( 3 ) 

C ZMG=DATA ( 4 ) 

C YMG=DATA ( 5 ) 

C 

IF (DATA(2) .EQ. 99999.) GOTO 18 
SUMXMG=SUMXMG+DATA ( 2 ) 

KNTX=KNTX + 1 

C SUMALT=SUMALT+DATA ( 3 ) 

18 IF (DATA(3) .EQ. 99999. ) GOTO 19 

SUMZMG=SUMZMG+DATA ( 3 ) 

KNTZ = KNTZ + 1 


o o 


19 


SUMYMG=SUMYMG+DATA ( 4 ) 
KNTY = KNTY+1 
CONTINUE 
GOTO 10 


20 AVXMG=SUMXMG/KNTX 
C AVALT=SUMALT/KOUNT2 

AVZMG=SUMZMG/KNTZ 
AVYMG=SUMYMG/KNTY 
AVTYM=TYMINT 

IF (KNTX.LT. (KOUNT2*. 8) ) THEN 

PRINT*, 'TIME, KNTX,KOUNT2 : ' , AVTYM, KNTX, KOUNT2 
END IF 

IF (KNTZ. LT. (KOUNT2*.8) ) THEN 

PRINT*, 'TIME, KNTZ, KOUNT2 : ', AVTYM, KNTZ, KOUNT2 
ENDIF 

WRITE ( 9 ) AVTYM, AVXMG, AVZMG, AVYMG 
WRITE (8,345) AVTYM, AVXMG, AVZMG, AVYMG 
345 FORMAT (E12 . 6, IX, E12 . 6, IX, E12 . 6, IX, E12 . 6) 

KOUNT2=0 
KNTX = 0 
KNTZ = 0 
KNTY = 0 
SUMXMG=0. 

SUMALT=0 . 

SUMZMG=0 . 

SUMYMG=0 . 

JMP=1 
GOTO 15 
1000 GOTO 10 
2000 STOP 
END 
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PROGRAM MERG (INPUT, OUTPUT, TAPE1, TAPE2, TAPE 3, TAPE 4, TAPE 5, 
. TAP E 6=OUTP UT , TAPE7 ) 

DIMENSION DAXZ (3, 2000) ,SMOO(7) ,SMO(7) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 

c 

c 


c 


c 


TAPE (1) = ATRW 

2 = XBET 

3 = HIRPB 

4 = XLAR 


(EPOCH) 201 WORD FILE 
(EPOCH) 66 WORD FILE 

(DECIMAL TIME, NO HEADER) 
(DECIMAL TIME, TWO HEADER RECORDS) 


TAPE (5) = MERGED FILES USING DECIMAL TIME 

6 = PRINT OUT AT TEN SECOND INTERVALS 


DIMENSION DAT (201) , UNITS (24) ,ALPHA(24) , TITLES (8) , DLAR (29) , DXT ( 66) 

TITLES (1) =10H STS-35 
TITLES (2) =10H MERGED FI 
TITLES (3) =10HLES USED I 
TITLES (4) =10HN ANALYSIS 
TITLES (5) =10H OF HIRAP 
TITLES (6) =10HDATA 
TITLES (7) =10H 
TITLES (8) =10H 

WGT=226613 . * . 4535924 
XBETEP=18100 . 

ABETEP=1E6 
DISJNT= 0. 

TTRAN=0 . 00 
AELE= 0. 

ABFL= 0. 

XTRAN=82300 . 

ZTRAN=97200 . 

IXSM=0 
IZSM=0 
XBIAS=0 . 0 
ZBIAS=0 . 00 
RTRAN=400000. 

HIRAP HEADER READ FOR TEST RUN OF STS-24 
READ (3, 1666) 

KVNT = 0 

ABRIDGED 2 4 -WORD DATA ARRAY 

ALPHA (1)=10HTIME 
UNITS (1)=10HSEC 

ALPHA (2) =10HVEL 
UNITS (2) =10HM/ SEC 

ALPHA (3) =10HALT 
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UNITS (3) =10HMETERS 
C 

ALPHA (4) =10HPLAT 
UNITS (4 ) =10HDEG 
C 

ALPHA (5) =10HPLONG 
UNITS (5) =10HDEG 
C 

ALPHA (6) =10HALPHA 
UNITS (6)=10HDEG 
C 

ALPHA (7 ) =10HBETA 
UNITS (7 ) =10HDEG 
C 

ALPHA (8) =10HP 
UNITS (8) =10HDEG/S 
C 

ALPHA ( 9 ) =1 OHQ 
UNITS (9)=10HDEG/S 
C 

ALPHA ( 10 )=10HR 
UNITS (10) =10HDEG/S 
C 

ALPHA ( 11 )=10HPDOT 
UNITS (11) =10HDEG/S2 
C 

ALPHA ( 12 ) =10HQDOT 
UNITS (12) =10HDEG/S2 
C 

ALPHA (13) =10HRDOT 
UNITS (13) =10HDEG/S2 
C 

ALPHA (14) =10HAELE 
UNITS (14)=10HDEG 
C 

ALPHA (15) =10HABFL 
UNITS (15) =10HDEG 
C 

ALPHA (16) =10HWGT 
UNITS (16) =10HKG 
C 

ALPHA ( 1 7 ) =1 0HDUMY1 
UNITS (17) =10H 
C 

ALPHA ( 18 )=10HRL 
UNITS (18) =10HKG/M3 
C 

ALPHA (19) =10HTIL 
UNITS (19) =10HKELV 
C 

ALPHA (20) =10HPIL 
UNITS (20) =10HN/M2 
C 

ALPHA (21) =10HWML 
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nno 


UNITS (21) =10HKG/KMOL 
C 

ALPHA (22 )=10HDUMY2 
UNITS (22) =10H 
C 

ALPHA (23) =10HAX 
UNITS (23) =10HM/S2 
C 

ALPHA (24) =10HAZ 
UNITS (24 )=10HM/S2 
C 



C WRITE HEADERS : TAPE (5) AND PRINT - OUT 

C 

ISEQ=1 

NWDS=24 

WRITE (5) ISEQ, NWDS, (ALPHA (I ) , 1=1, NWDS) , (UNITS (I) , 1=1, NWDS) , 
.TITLES 


WRITE (6, 1001) * /v 

1001 FORMAT ( //2X, * HIRAP ANALYSIS MERGED FILE HEADER... /) 

WRITE (6, 1002) TITLES 

1002 FORMAT (2X, 8 A10/) 

WRITE (6, 1003) (I, ALPHA ( I) , UNITS ( I) , 1=1, NWDS) 

1003 FORMAT (2X, * LABELS AND UNITS FOR DATA WORDS */ 

. (3 (3X, * (*, 13, *) *, 2X, A10, 3X, A10) ) ) 


C 

WRITE (6, 1004) 

1004 FORMAT (///4X, *TIME ALT WML 

* AZ VEL TIL PIL RL 


AELE ABFL 

ALPHA*/) 


AX 


C 

c 

c 

c 

c 


INITIALIZE COUNTERS 
TIME=-1. 

N6=10 

NZP=1 


OPTIONAL HIRAP AX , AZ SMOOTHING 
IF ( IXSM . EQ . 1 ) GOTO 8 1 
IF (IZSM.EQ. 1) GOT081 
G0T08 
C 

81 K=0 

J=0 

1 J=J+1 

READ (3, 1666) (DAXZ (I, J) , 1=1,3) 
IF (EOF (3) ) 2, 1 

2 K=K+1 
C 


DAXZ (1 , K) =DAXZ (1, K+3) 


c 

IF (IXSM.EQ. 1) G0T082 
DAXZ (2,K) =DAXZ (2,K+3) 
GOTO 91 

82 DO 83 1=1,7 

SMO ( I ) =DAXZ (2, K-l+I) 

83 SMOO { I ) =SMO ( I ) 

NS=7 

84 DM=SMOO ( 1 ) 

IM=1 

DO 85 1=2, NS 

IF (SMOO (I) . LE . DM) G0T08 5 

DM=SMOO ( I ) 

IM=I 

85 CONTINUE 

IF (NS . LE . 4 ) G0T088 
ISMO=0 

DO 86 1=1, NS 

IF ( I . EQ . IM) G0T08 6 

I SMO= I SMO+ 1 

SMO ( I SMO) =SMOO ( I ) 

86 CONTINUE 
NS=NS-1 

DO 87 1=1, NS 

87 SMOO ( I ) =SMO ( I ) 

G0T084 

88 DAXZ (2, K) =DM 
C 

91 IF (IZSM.EQ. 1) G0T092 
DAXZ (1, K) =DAXZ (l,K+3) 
GOTO 9 3 

92 DO 3 1=1,7 

SMO ( I ) =DAXZ (3, K-l+I) 

3 SMOO ( I ) =SMO ( I ) 

NS=7 

4 DM=SMOO ( 1 ) 

IM=1 

DO 5 1=2, NS 

IF ( SMOO ( I ) . LE . DM) G0T05 

DM=SMOO ( I ) 

IM=I 

5 CONTINUE 

IF (NS . LE . 4 ) GOTOl 1 

ISMO=0 

DO 6 1=1, NS 

IF (I .EQ. IM) GOTO 6 

I SMO= I SMO+ 1 

SMO ( I SMO ) =SMOO ( I ) 

6 CONTINUE 
NS=NS-1 

DO 7 1=1, NS 

7 SMOO ( I ) =SMO ( I ) 

GOTO 4 

11 DAXZ ( 3, K) =DM 
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c 

93 IF (K. LT . J-7 ) G0T02 

DHP1=DAXZ (1,1) 

DHP2=DAXZ (2,1) 

DHP3=DAXZ (3,1) 

C 

C INITIAL READ OF HEADERS AND RECORDS (ABET, XBET, HIRAP, XLAR) 
GOTO 9 

8 READ (3,1666) DHP1, DHP2,DHP3 

DHP1=DHP1*1 . 

C WRITE (6, 1666) DHP1, DHP2 , DHP3 

9 READ (1) 

READ (2) 

READ (4) 

READ (4) 

READ (4) (DLAR(I) ,1=1,29) 

C 

10 IF (TIME.LT. ABETEP+TTRAN-1 .) GOTO20 
C 

C READ ABET RECORDS 

12 READ (1) (DAT (I) ,1=1,201) 

IF (EOF (1) ) 999,15 

15 IF (DAT (1 ) +ABETEP . LE . TIME) G0T012 
TIME=DAT ( 1 ) +ABETEP 
VEL=DAT(2) *.3048 
ALT=DAT(5) *.3048 
PLAT=DAT (6) 

PLONG=DAT (7) 

AALPHA=DAT (10) 

BETA=DAT (9) 

P=DAT (37 ) 

Q=DAT (38) 

R=D AT (39) 

PDOT=DAT (43) 

QDOT=DAT (44) 

RDOT=DAT (45) 

AELE=DAT (65) 

ABFL=DAT (69) 

AX=DAT (40) *.3048 
AZ=DAT(42) *.3048 

RL=DAT (28) *14 . 5939/ . 3048/ . 3048/ . 3048 
TIL=DAT (.27 ) *5./9. 

PIL=DAT (26) *4. 44 8222/. 3048/. 3048 
WML=DAT (22 ) *DAT(22) *1 . 4*8314 . 34*TIL/VEL/VEL 
GOTO30 
C 

C READ XBET RECORDS 

20 READ (2) (DXT (I) ,1=1, 66) 

IF (EOF (2) ) 999,25 

25 TIME=DXT (1) +XBETEP 

IF (TIME.LT. 18800.) GOTO 20 
VEL=DXT(2) *.3048 
ALT=DXT (5) * . 3048-DISJNT 
PLAT=DXT (6) 
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PLONG=DXT (7) 

AALPHA=DXT (10) 

BETA=DXT ( 9 ) 

P=DXT (49) 

Q=DXT (50) 

R=DXT (51) 

PDOT=DXT (64) 

QDOT=DXT ( 65 ) 

RDOT=DXT (66) 

AX=DXT (52) * .3048 
AZ=DXT (54) * .3048 

RL=DXT (45) *14. 5939/. 3048/. 3048/. 3048 
TIL=DXT (44 ) *5 . /9 . 

PIL=DXT (43) *4 .448222/. 3048/. 3048 
WML=DXT (41) *DXT (41) *1 . 4*8314 . 34*TIL/VEL/VEL 
C 
C 

30 IF (ALT . LT . XTRAN) GOTO50 
C 

C FILL-IN HIRAP AX 

IF (DHP 1 . GE . TIME- . 5 ) G0T04 0 
IF ( I ZSM . NE . 1 ) GOTO 3 8 
NZP=NZP+1 

IF (NZP . GT . K) GOTO 9 9 9 
DHP1=DAXZ (1, NZP) 

DHP2=DAXZ (2, NZP) 

DHP3=DAXZ (3, NZP) 

GOTO30 

38 READ (3,1666) DHP1, DHP2, DHP3 
DHP1=DHP1*1 . 

C WRITE (6, 1666) DHP1, DHP2, DHP3 

IF (EOF (3) ) 997,30 
40 AX=- 9999. 

IF (DHP1 . LE . TIME+ . 5) AX= (DHP2+XBIAS) *32 . 1747/1 . 0E06* . 3048 
C IF ( (DHP 1 . LE . TIME+ . 5 ) .AND. (DHP2 . GT . -9000 . ) )AX=DHP2 

50 IF (ALT . LT . ZTRAN) GOTO70 
C 

C FILL-IN HIRAP AZ 

IF (DHP1 . GE . TIME- . 5) GOTO60 
IF (IZSM. NE . 1) G0T058 
NZP=NZP+1 

IF (NZP . GT . K) G0T0999 
DHP1=DAXZ (1, NZP) 

DHP2=DAXZ (2, NZP) 

DHP3=DAXZ (3, NZP) 

GOTO50 

58 READ (3, 1666) DHP1, DHP2, DHP 3 
C WRITE (6, 2323) DHP1, DHP2, DHP3 

2323 FORMAT ( 3 ( IX, E12 . 6 ) ) 

DHP1=DHP1*1. 

IF (EOF (3) ) 999,50 
60 AZ=-9999 . 

IF (DHP1 . LE . TIME+ . 5) AZ= (DHP3+ZBIAS) *32 . 1747/1 . 0E06* .3048 
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C WRITE (6, 2323) DHP1, DHP2, DHP3 

C IF ( (DHPl . LE . TIME+ . 5 ) .AND. (DHP3 . GT . -9000 . ) ) AZ=DHP3 

C 

70 IF (ALT . LT . RTRAN) GOTO90 
C 

C FILL-IN XLAR ATMOS DATA 

IF (DLAR (4) . GE . TIME- . 5) GOTO80 
READ (4) (DLAR(I) ,1=1,29) 

IF (EOF (4) ) 999, 70 

80 IF(DLAR(4) .GT.TIME+. 5) GOTO90 
RL=DLAR ( 8 ) 

TIL=DLAR (6) 

PIL=DLAR(7) 

WML=DLAR (25) 

C 

C 

C LOAD MERGED ARRAY 
C 

90 DAT (1) =TIME 
DAT ( 2 ) =VEL 
DAT ( 3 ) =ALT 
DAT (4 ) =PLAT 
DAT (5) =P LONG 
DAT ( 6 ) =AALPHA 
DAT ( 7 ) =BETA 
DAT ( 8 ) =P 
DAT (9) =Q 
DAT (10) =R 
DAT (11) =PDOT 
DAT (12)=QDOT 
DAT (13) =RDOT 
DAT (14 ) =AELE 
DAT (15) =ABFL 
DAT (16) =WGT 
DAT (17) =-9999. 

DAT (18) =RL 
DAT (19) =TIL 
DAT (20) =PIL 
DAT (21) =WML 
DAT (22) =-9999. 

DAT (23) = AX 
DAT (24) =AZ 
C 
C 

C WRITE DATA : TAPE (5) AND PRINT - OUT 

C 

WRITE (5) (DAT (I) , 1=1,24) 

WRITE (7,2999) DAT (1) , DAT (3) ,DAT(23) ,DAT(24) ,DAT(6) 

2999 FORMAT (5 (IX, E12 . 6) ) 

C 

C 

N6=N6+1 

IF (N6 . LT . 10) GOTOIO 

WRITE (6, 1005) TIME, ALT, WML, AELE, ABFL, AX, AZ, VEL, TIL, PIL, RL, DAT ( 6) 


1005 FORMAT (6X, 1F9.3, IX, 1F8.1, 1F8 . 2, 2F8 . 1, 7E12 . 5) 

N6=0 

GOTOIO 

C 

997 WRITE (6, 1006) TIME, DHP1 

1006 FORMAT (2X, .FOUND EOF ON HIRAP TAPE AT TIME . . . */2 (F10 5)) 

1666 FORMAT (F9 . 3, IX, F9 . 3, IX, F9 . 3) 

C 

999 STOP 
END 
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PROGRAM MTEST88 ( INPUT, OUTPUT, TAPE1 , TAPE5=INPUT, TAPE6=OUTPUT, TAPE3 , 

* TAPE4 , TAPE7 ) 

C 

C THIS PROGRAM PERFORMS ANALYSIS COMPUTATIONS ON THE MERGED HIRAP, 

C 01, TRAJECTORY, AND EXTENDED LAIRS FLIGHT DATA FILES. 

C 

C** THIS PROGRAM ALSO ALLOWS USER TO PLOT ANY ELEMENT OF THE 24-WORD 

C MERGED DATA FILE AND THE ANALYSIS COMPUTATIONS WHICH ARE STORED 

C IN ACCESS-RECORDS 25-66. 

C 

C** AGAINST OTHER ELEMENTS OF THE SAME FILE 
C 

C AN ADDITIONAL UTILITY STORES THE PLOT DATA ON TAPE3 

C WITH NEW PLOTS OF THE SAME FORMAT FOR USE IN FUTURE COMPARISONS 

C 
C 

C** USER INPUT, IN ADDITION TO ELEMENTS TO BE PLOTTED, INCLUDES 
C** X-AXIS AND Y-AXIS RANGES, AND AXIS LENGTHS. 

C 

DIMENSION DAT (66) ,ALPHA(66) ,UNITS(66) ,TITLES(8) 

DIMENSION BCDX (2) , BCDY (2) , ANS (4) 

DIMENSION XWK (500) , YWK (500,2) , WWX (500) , WWZ (500) , RWK (500, 2) 
DIMENSION BAC (4,2) ,WK(500,4) ,SWK(2) ,AWK(4,4) 

C 

NAMELIST/OPT/XL, YL, ALTSTRT, ALTEND, GAPSTRT, GAPEND, ISYMB, I GRID, ITPLT 
. , I TAG, AF IT, NFIT , XBIAS, ZBIAS, ARHO, IDMP, I ATM, QF AC 
C 

NWDS=66 


C 

C NAMELIST/OPT/ INPUTS 

C 

C. .XL X-AXIS LENGTH (INCHES) , DEFAULT VALUE IS 4.0 

C..YL Y-AXIS " " " 


C. .ALTSTRT. .START ALT. (METERS) FOR SEARCH, DEFAULT IS 180000. 

C. -ALTEND. . .STOP "" " " 60000. 

C. .GAPSTRT. .UPPER ALT GAP , DEF=4 00000. 

C . . GAPEND . . . LOWER ALT GAP , 

C. .ISYMB. .. .SYMBOL OPTION FOR PLOT 
C 0-LINE (DEFAULT) 

C 1-POINTS 

C. . IGRID. . .PLOT GRID OPTION 

C 0-NO GRID (DEFAULT) 

C 1-GRID 

C. .ITPLT. . .AXIS FORMAT 

C 0 -NORMAL PLOT (DEFAULT) 

C 1-T PLOT OPTION 

C..ITAG USE TO OVERLAY FOLLOWING PLOT ( 1-OVERLAY) DEF.=0 

C. .AFIT. . . .FITS A NFIT ORDER FUNCTION TO ACCEL. DATA , DEF. =400000. 

C. .NFIT ABOVE ALT=AFIT , WHICH IS THEN USED IN PLACE OF DEF=1 MAX: NFIT= 
3 

C RAW DATA FOR AERO CALCULATIONS. 

C.. XBIAS... X AND Z-AXIS ACCEL. BIASES , IN ADDITION DEFS . =0. 

C.. ZBIAS TO INPUT DATA. 

C. .ARHO. .. -TRANSITION ALTITUDE FOR COMPOSITE AXIAL/NORMAL DENS. CALCS. DEF=890 

00 . 

C..IDMP DUMPS ALL DATA IF IDMP = 1, BYPASSES AERO CALCS. DEF=0 

C. . I ATM. . . .MEAN MOL WT ATM MODEL 


C 0-LAIRS (DEFAULT) 

C 1 -MODEL 

C..QFAC SCALING FACTOR , DEF=1 . 

C 

C FORMATTED INPUTS 

C . . . CARD 1 NECESSARY INPUT TO SELECT PLOT PARAMETERS 

C 


C XAXTS (A10) ALPHA FOR INDEPENDENT VARIABLE 

C YAXIS (A10) ALPHA FOR DEPENDENT VARIABLE 
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c 

XMAX 

(F10.3) 

MAXIMUM 

VALUE 

FOR 

X 

c 

XMIN 

(F10.3) 

MINIMUM 

VALUE 

FOR 

X 

c 

YMAX 

(F10.3) 

MAXIMUM 

VALUE 

FOR 

Y 

c . . . . 

YMIN 

(F10.3) 

MINIMUM 

VALUE 

FOR 

Y 


c 

c 


C INITIALIZE PLOT UTILITY 
CALL PSEUDO 
CALL CALP LT ( 5 . , 3 . , - 3 ) 

NTAG=0 

L=0 

K-l 

C 

C READ, WRITE HEADER ON INPUT DATA FILE 
DO 25 1=1 , NWDS 
DAT (I) =0 . 

ALPHA ( I ) =10H 
25 UNITS ( I ) =10H 
WRITE (6, 1000) 

1000 FORMAT (1H1) 

READ (1) I SEQ, NWSS , (ALPHA (I) , I=1,NWSS) , (UNITS (I) , I=1,NWSS) , 
.TITLES 

IF (EOF (1)) 500, 5555 
5555 CONTINUE 
REWIND 1 
C 

C 

C GENERALIZED 66-WORD ARRAY 
C 

C ALPHA, UNITS ( 1 - 24 ) CONTAIN INPUT DATA 

C 

ALPHA (25) =10HHDIST 
UNITS (25) =1 OHKILOMETERS 
C 

UNITS ( 3 ) =1 OHKILOMETERS 
UNITS (1) =10HSECX100 
C 

ALPHA (26) =1 0HACCN 
UNITS (26) =1 OHLOG1 OMIC-G 
C 

ALPHA (27) =10HACCA 
UNITS (27) =10HLOG1 OMIC-G 
C 

ALPHA (28) =10HFLOD 
C 

ALPHA (29) =10HFNOA 
C 

ALPHA (30) =10HCDB 
C 

ALPHA (31) =10HCXELFM 
UNITS (31) -10H 
C 

ALPHA (32 ) =10HCZELFM 
UNITS (32) =10H 
C 

ALPHA (33) =1 OHPN 
UNITS (33) =10HLOG10 
C 

ALPHA (34 ) =10HCAB1 
C 

ALPHA (35) =10HXKN2 
UNITS (35) =10HLOG10 
C 

ALPHA (36) =1 OHTW 
UNITS (36) =10HK 
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oo ooo o o non 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ALPHA ( 37 )=10HAMACH 

ALPHA (38) =10HACCNP 
UNITS (38) =10HLOG10MIC-G 

ALPHA (39) =10HCN2 

ALPHA (40) =10HCNB1 

ALPHA (41) =10HRHON/RHOA 

ALPHA (42) =1 OHCAP 

ALPHA (43) =10HGAELE 
UNITS (43) =1 OHGRAPHUNITS 

ALPHA (44) =10HGABFL 
UNITS (44) =1 OHGRAPHUNITS 

ALPHA ( 45 )=10HGALPH 
UNITS (45) =1 OHGRAPHUNITS 

ALPHA (46) =10HCA2 
ALPHA (47 ) =10HRHO/R7 6 


ALPHA ( 4 8 ) = 1 0 HRHO 
UNITS (48) =10HKG/M3 

ALPHA (49) =10HCA1 

ALPHA (50 )=10HCN1 

ALPHA (51) =10HFLOD1 

ALPHA ( 52 ) =10HMW7 6 
UNITS (52) =10HKG/KMOLE 

ALPHA (53 )=10HCXBFFM 

ALPHA (54) =1 OHCZBFFM 

ALPHA (55) =10HPDIFF 

ALPHA (56) =10HCAB2 
ALPHA (57) =10HCNB2 
ALPHA ( 58 )=10HCDB2 


ALPHA (59) =10HXKN 
UNITS (59) =1 OH (LOG10) 

ALPHA ( 60 ) =10HFLOD2 

ALPHA ( 63 ) =10HAELE 
UNITS (63) =10HDEG 

SET CONSTANTS 

SS6=2690 .*.3048*. 3048 
PI=4 . *ATAN ( 1 . ) 
PIS=PI/180 . 
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C KN VS RHO 62ATM KN-1 0 ^A*RHO A B (RHO LBM/FT3) 

AKN=-7 .7176662-1 .5973 
BKN=-. 99057554 
C 
C 

C EXP (-A2ZE* (B2ZE-LOG10 (KN) ) A C2ZE) KN < B2ZE 

A2ZE-.2262 
B2ZE=1 . 2042 
C2ZE-1.8410 
A1ZE= . 2998 
B1ZE-1.3849 
C1ZE-1.7128 
C 
C 
C 

C*** ************ ********************* 

c 

WRITE { 6, 1001) 

1001 FORMAT <//2X, * HIRAP ANALYSIS MERGED FILE HEADER */) 

WRITE (6, 1002) TITLES 

1002 FORMAT (2X, 8A10/) 

WRITE (6, 1003) {I, ALPHA (I) , UNITS (I) , 1=1, 24) 

1003 FORMAT (2X, * LABELS AND UNITS FOR DATA WORDS */ 

. <3 <3X, * (*, 13, *) *,2X,A10, 3X,A10) ) ) 

WRITE {6, 1038) 

1038 FORMAT (/ / 4X, * ACCESS RECORDS OF ANALYSIS COMPUTATIONS* /) 

WRITE (6, 1003) (I, ALPHA(I) , UNITS (I) , 1=25, NWDS) 

C 

C 

C 

C 

C READ / WRITE NAMELIST OPT 
5 CONTINUE 
C 

XL=4. 

YL=4 . 

ALTSTRT=1 8 000 0. 

ALTEND= 6 0000. 

GAP STRT=4 00000 . 

GAPEND=400000 . 

ISYMB=0 

IGRID=0 

ITPLT=0 

ITAG=0 

AFIT=400000 . 

NFIT-1 
XBIAS=0 . 0 
ZBIAS=0 . 0 
ARHO=89000 . 

IDMP=0 
IATM=0 
QFAC—1 . 

C 

READ OPT 



IF (EOF (5)) 260,666 
666 WRITE {6, OPT) 

C 

C DUMMY HEADER READ 
READ { 1 ) 


C 

C READ FORMATTED USER INPUT 
555 CONTINUE 

READ (5, 6) XAXIS, YAXIS, XMAX, XMIN, YMAX, YMIN 
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6 FORMAT (2A10, 4F10 . 3) 

IF (EOF ( 5 ) ) 260,7 

C 

C IDENTIFY DATA WITH ALPHA INFO. 

7 DO 9 1=1 , NWDS 

IF (XAXIS . EQ . ALPHA ( I ) ) IX=I 
9 IF (YAXIS . EQ .ALPHA ( I ) ) IY=I 

IF (IX.EQ. 0) GO TO 4009 
IF (IY.EQ. 0) GO TO 4010 
904 CONTINUE 

WRITE (6, 1000) 

WRITE ( 6, 2 000 ) K 

WRITE (6, 1011) XL, YL 

IF (I GRID . EQ . 0 ) WRITE (6,1017) 

IF (IGRID.EQ. 1) WRITE (6,1018) 

WRITE ( 6, 1021) ALTSTRT,ALTEND 
WRITE (6, 1004) ALPHA (IX) ,XMIN,XMAX 
WRITE <6, 1005) ALPHA (IY) , YMIN, YMAX 
IF (IX.EQ. IY) GOTO650 
C 

C TIME, ALTITUDE SCALING FOR PLOTS 
C 

ITIME=1 

IALT=3 

ALTEND=ALTEND / 1 0 0 0 . 

ALTSTRT=ALTSTRT/1000 . 

C 

IF (IX.NE . I TIME) GO TO 40 
XMAX=XMAX/100 . 

XMIN=XMIN/100 . 

40 CONTINUE 

IF ( IY . NE . I TIME) GO TO 41 
YMAX=YMAX/100 . 

YMIN=YMIN / 1 0 0 . 

41 CONTINUE 

IF (IX.NE. IALT) GO TO 50 
XMAX=XMAX/ 1000 . 

XMIN=XMIN/1000 . 

50 CONTINUE 

IF (IY.NE. IALT) GO TO 51 
YMAX=YMAX/1000 . 

YMIN=YMIN/ 1000 . 

51 CONTINUE 
C 

C PLOT GRID, AXES, LABELS 
BCDX ( 1 ) =ALPHA (IX) 

BCDX (2 ) =UNITS (IX) 

BCDY (1) =ALPHA(IY) 

BCDY (2 ) =UNITS ( I Y) 

XSF= (XMAX-XMIN) /XL 
YSF= (YMAX-YMIN) /YL 
XFR=2 . *XL 
YFR=0 . 

IF (IGRID.EQ. 0) GOTO901 

NOX=XL 

NOY=YL 

CALL GRID (0.,0.,1.,1., NOX, NOY) 

GOTO902 

901 CONTINUE 

902 CONTINUE 

IF (NTAG.NE. 0) GOTO903 
IF (ITPLT.EQ. 1) G0T0931 
CALL GRID ( 0 . , 0 . , XL, YL, 1 , 1 ) 

CALL AXES ( 0 . , 0 . , 0 . , XL, XMIN, XSF , 1 . , 0 . , BCDX, .2,-20) 
CALL AXES (0 ., 0 ., 90 ., YL, YMIN, YSF, 1 ., 0. , 1H ,.2,1) 
CALL AXES (XL,0.,90.,YL, YMIN, YSF, 1 . , 0 . , 1H ,0.,-l) 


151 


G0T0932 

931 CALL AXES (0.,-. 5,0., XL, XMIN, XSF, 1 . , 0 . , BCDX, .2,-20) 

CALL AXES (0 . , 0 . , 90 . , YL, YMIN, YSF, 1 . , 0 . , 1H ,.2,1) 

Y00=YL/2. 

CALL CALPLT (0 . , Y00, 3) 

CALL CALPLT (XL, Y00, 2) 

932 CALL CHARWH (W1 , ZA, ZB, . 15, TITLES, 9) 

Y1 — 1.5 

Xl= (XL-W1) /2 . 0 

CALL CHARACT (XI , Y1 , .15, TITLES, 0 . , 9) 

903 CALL CHARWH(W1, ZA, ZB, .15,BCDY, 20) 

Xl=- ( .5+W1) 

Y1=YL+ . 5- . 25*NTAG 

CALL CHARACT (XI, Yl, .15, BCDY,0., 20) 

C 

WRITE (3) BCDX, BCDY, TITLES (1) 

NTCT=0 

C 

C 

C 

C READ DATA FROM TAPE1 

C 

C 

IF ( IDMP . EQ . 1 ) GOTO200 
C 

C CURVE FIT UPPER-END ALT > AFIT 

IF (ALTSTRT* 1 000 . . LE .AFIT) GOTO200 
NFT=0 

600 READ (1) (DAT (I) , 1=1, 24) 

IF (EOF (1) ) 620, 610 

610 IF (DAT (3) /1000. . GT . ALTSTRT) GOTO600 
IF (DAT (3) .LT.AFIT) GOTO620 

C BLANK REDORD INDICATOR 

IF (DAT (23) . EQ . -9999 . ) GOTO600 
IF (DAT (24) . EQ. -9999 . )GOTO600 

C MICRO-G RESOLUTION FILTER 

IF (DAT (23) . GT . -9 . 81E-06) GOTO600 
IF (DAT (24 ) .GT.-9. 81E-06) GOTO600 
C INPUT ADDITIONAL BIASES 

AX=DAT (23) +XBIAS* 9 . 81/1 . 0E06 
AZ=DAT (24) + ZB I AS* 9 .81/1.0E06 
IF (AZ.GE. 0 . ) GOTO600 
IF (AX . GE . 0 . ) GOTO600 
C 

NFT=NFT+1 

WWX (NFT) = (-AX) /9 . 81*1 . 0E06 
WWZ (NFT) = (-AZ) /9 . 81*1 . 0E06 
XWK(NFT) =DAT (3) 

YWK (NFT, 1 ) =ALOG10 (-AX) 

YWK (NFT, 2 ) =ALOGl 0 (-AZ) 

GOTO600 

C 

620 BAC (3, 1 ) =0 . 

BAC ( 4 , 1 ) =0 . 

BAC (3, 2) =0. 

BAC (4, 2 ) =0 . 

NLSQ=NFIT+1 

CALL LSQPOL ( 5 0 0 , NFT , XWK , 2 , YWK , WWZ , 4 , NLSQ , RWK , SWK , AWK , BAC , WK , I ERR ) 
CALL LSQPOL (500, NFT, XWK, 1 , YWK, WWX, 4 , NLSQ, RWK, SWK, AWK, BAC, WK, IERR) 
REWIND 1 
READ ( 1 ) 

C 

C 

C 

200 READ (1) (DAT (I) , 1=1, 24) 
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IF (EOF (1) ) 820,205 


SEARCH DATA 
205 CONTINUE 

INTERPOLATE TIME AT ALT = 190KM 
IF (NTCT . EQ . 0 ) G0T02 0 6 
IF(DAT(3) . LT. 190000) GOTO206 

T1 90= (DAT (1) -TOLD) * (190000 . -DAT (3) ) / (DAT (3) -AOLD ) +DAT (1) 
06 NTCT=NTCT+1 
AOLD=DAT (3) 

T0LD=DAT ( 1 ) 


IF (DAT (IALT) /1000. . GT . ALTSTRT) GOTO200 
IF (DAT (IALT) /1000 . . LT . ALTEND) G0T082 0 

IF ( IDMP . EQ . 1 ) G0T02 0 9 


BLANK RECORD INDICATOR 

IF (DAT (23) .EQ.-9999. ) GOTO200 
IF (DAT (24) .EQ.-9999. ) GOTO200 

MICRO-G RESOLUTION FILTER 

IF (DAT ( 24 ) . GT.-9.81E-06) GOTO200 
IF (DAT (23) . GT.-9.81E-06) GOTO200 

LEAVE GAP IN DATA 

209 IF (DAT (3) . GT . GAPEND . AND . DAT ( 3 ) . LT . GAPSTRT) GOTO200 


FLIGHT DATA ON TAP El 

DAT ( 1 ) =DAT ( 1 ) -T1 90 
TIME=DAT (1) 

VEL=DAT (2) 

ALT=DAT ( 3 ) 

PLAT=DAT ( 4 ) 

PLONG=DAT (5) 

ALPH=DAT (6) 

AELE=DAT (14) 

ABFL=DAT (15) 

WGT=DAT (16) 

RL=DAT (18) 

TIL=DAT (19) 

PIL=DAT (20) 

WML=DAT (21) 

C 62-STANDARD ATM. ALTITUDE MODEL 
AALT=ALT/ .3048 
CALL AT62 (AALT,ANS) 

R62=ANS (1) 

PI62=ANS (2) 

TI62=ANS (3) 

AMACH62=VEL/ . 3048/ANS (4) 

WM62=8314 . 34*10. 7639*TI62*R62/P 162 
R62=R62*515 .3788 
PI62=PI62*47 . 88026 
C 76-STANDARD ATM. ALTITUDE MODEL 
AALT=ALT / . 3 0 4 8 
CALL AT76 (AALT,ANS) 

R76=ANS (1) 

PI76=ANS (2) 

TI76=ANS (3) 

AMACH7 6=VEL/ .3048 / ANS ( 4 ) 

WM76=8314 . 34 * 10 . 7639*TI76*R76/PI76 
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R76=R7 6*515 .3788 
PI7 6=P 176* 47 . 88026 
C 
C 

C PREPROCESS ACCELEROMETRY DATA 

AX=DAT (23) +XBIAS*9. 81/1 . 0E06 
AZ=DAT (24) +ZBIAS*9. 81/1 . 0E06 
IF ( IDMP . EQ . 1 ) G0T02 1 0 

IF (ALT.GT. AFIT) AX=-10 . ** (BAC (1, 1) +BAC (2,1) *ALT+BAC (3, 1) *ALT*ALT 
. +BAC (4,1) *ALT*ALT*ALT) 

IF (ALT. GT. AFIT) AZ=-10 . ** (BAC (1, 2) +BAC (2,2) *ALT+BAC (3,2) *ALT*ALT 
. +BAC (4,2) *ALT*ALT*ALT) 

IF (AX .GE . 0 . ) GOTO200 
IF (AZ . GE . 0 . ) GOTO200 
C 

C ACCELEROMETRY DATA IN MICRO-G S 
210 IF (AZ.GT.-9. 81E-06) AZ=-9. 81E-06 
IF (AX.GT.-9. 81E-06) AX=-9. 81E-06 
ACCN=-AZ* 1 . 0E06/32. 1747/. 3048 
ACCA — AX* 1 . 0E0 6/32. 1747/. 3048 
ACCN=ALOG 1 0 (ACCN) 

ACCA=ALOG 1 0 (ACCA) 

C 

C FORCE RATIOS 

FNOA=AZ/AX 
ALP HAR=ALP H * P I S 
SINA=SIN (ALPHAR) 

COSA=COS (ALPHAR) 

TANA=SINA/ COSA 

FLOD= (AZ /AX-TANA) / (1 . +TANA*AZ/AX) 

C 

C 

C DATA BOOK PROFILES 

XKN62=10. **AKN* (R62/1 6 . 01 84 6) **BKN 
XKN62=ALOG10 (XKN62 ) 

ZDB=0 . 

IF (XKN62 . LT. -2 . 99) G0T0335 
ZDB=1 . 

IF (XKN62 . GT . . 99999) G0T0335 
ZDB=SIN (1 . 1781+ . 3927*XKN62) **2 
335 CONTINUE 

ATLT=AALT / 1000. 

VBARDB= (-12.62977) +ATLT* .1951838 
. -ATLT*ATLT* . 00156941 
. +ATLT*ATLT*ATLT* 6 . 586803E-06 
. -ATLT*ATLT*ATLT*ATLT* 1 . 4461354E-08 
. +ATLT*ATLT*ATLT*ATLT*ATLT*1 . 586619E-11 
. -ATLT*ATLT*ATLT*ATLT*ATLT*ATLT*6 . 8824 603E-15 
C 

C HORIZ. PATH DIST 
RADE=6370 . 

PH= (90. -PLAT) *PIS 
TH=PLONG*PIS 
X2=RADE*SIN (PH) *COS (TH) 

Y2=RADE*SIN (PH) *SIN(TH) 

Z2=RADE*COS (PH) 

IF (L . EQ . 0 ) G0T0331 

HDIST=HDIST+SQRT ( (X2-X1) **2+ (Y2-Y1) **2+ (Z2-Z1) **2) 

G0T0332 

331 HDIST=0 . 

332 X1=X2 
Y1=Y2 
Z1=Z2 

C 

C 

C TW FROM STS-3 , STS-5 DFI (TW) 
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216 TW=3172 .-26. 2* ALT/ 1 000 . 

IF (ALT. LT. 75000 . ) TW=1207 . 

IF (ALT. GT. 110000 . ) TW=290 . 

C 

C MEAN MOL WGT AND FRESTRM TEMP USED IN SCALING PARA. 

C WWML=WML 

C WWML=R62* (8314 . 34) *TI62/PI62 

WWML=28 . 96 

IF (ALT. GT. 88000 . ) WWML=28 . 96- (ALT-88000 . ) / 10000. 
TI=TI62 

IF (IATM.EQ. 1) G0T0218 
TI=TIL 

WWML=RL* (8314 . 34) *TIL/PIL 
WWML=WM7 6 
218 CONTINUE 
C 

C DENSITY INDEP . SCALING PARAMETER VARIABLES 
XLR=32 . 77 
AP=390 . 83*SINA 
AW=1200 . 

SA=12 . 058*SQRT (SINA) 

SRAT=VEL/ SQRT (2.0*8314. 34*TI/WWML) 

AMACH=SRAT* SQRT ( 2 . 0 / 1 . 4 ) 

VISC= (TI/273 . 1) **1 . 5*6. 584E-02* .0672/ (TI+110. 6) 
RENOR= (1 ./16. 01846) *1290.3/12.* (VEL/ .3048) /VISC 
TPR= (0 .468+0 . 532*TW/TI+0 . 1 95*AMACH*AMACH/5 . ) *TI 
CPR=SQRT (TPR/TI ) *(TI+122.1*10.**(-5./TI))/ 

. (TPR+122 . 1*10 . ** (-5./TPR) ) 

XKNXR=WWML*2 . 8E-09/12 . 058 *QFAC 
OMEG=. 63 
AK=1 . 4 

AM2=AMACH*AMACH 

TO=TI* (1 .+ (AK-1 . ) /2 . *AM2 ) 

C 

C NORMAL SHOCK RELATIONS 

TSOT= (2 . *AK*AM2-AK+1 . ) * ( (AK-1 . ) *AM2+2 . ) 

. / ( (AK+1 . ) * (AK+1 . ) *AM2 ) 

RSOR= (AK+1 . ) *AM2/ ( (AK-1 . ) *AM2+2 . ) 

AMSOM=SQRT ( ( (AK-1 . ) +2 . /AM2) / (2 . *AK*AM2-AK+1 . ) ) 
TAS=TSOT*TI 

VISCS= (TAS/273 . 1) * * 1 . 5* 6 . 584E-02 * . 0 672/ (TAS+110. 6) 
RENORS=RENOR* AMSOM* VI SC/VISCS* SQRT (TSOT*RSOR) 
XKNXRS =XKNXR * AMS OM* RENOR/ RENORS 
C 

C CALCULATE FM AND CONT. COEFFS . 

TWOT I =TW / T I 

CALL CXCZDB (ALPH, ABFL, AELE, CZC, DELZ , CXC, DELX, CZP, 

. SRAT, TWOTI , KHROl , CXELFM, CZELFM, CXBFFM, CZBFFM) 

IF (KHROl .GT. 4 .OR. KHROl .LT. 1) GOTO 504 
C 

C CXC = CX-CONT. CXC+DELX = CX-FM. 

C CZC = CZ-CONT. CZC+DELZ = CZ-FM. 

c 

FLODFM= (CZC+DELZ) / (CXC+DELX) 

FLODFM= ( F LODFM- TANA ) / (1 . +TANA*FLODFM) 

FLODC= (CZC /CXC -TANA) / ( 1 . +TANA*CZC/CXC) 

FLODB= (FLOD-FLODC) / (FLODFM-FLODC ) 

C 

C 

C BYPASS AERO CALCULATIONS 
IF (IDMP.EQ. 1) G0T0257 
IF (IX . EQ . 3 . AND . IY . EQ .26) G0T0257 
IF (IX . EQ. 3 .AND . IY . EQ . 27 ) G0T0257 
C IF ( IX. EQ . 3 . AND . IY . EQ . 28 ) GOT0257 

IF ( IX . EQ . 3 . AND . IY . EQ . 2 9) G0T0257 
IF < IX . EQ . 4 0 . AND . I Y . EQ . 3 ) GOT02 57 
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IF (IX.EQ. 4 9. AND. IY.EQ. 3) G0T0257 
IF (IX.EQ. 50 .AND. IY.EQ. 3) G0T0257 
IF (IX.EQ. 51 .AND. IY.EQ. 3) G0T0257 
C 
C 
C 
C 

C COMPONENT DERIVED DENSITY USING CN-DATA BOOK 
CNST-2 . / (VEL*VEL*SS6/WGT) 

RGUESS-CNST*AZ/ (DELZ/2 . +CZC) 

RH01=RGUESS 
NCON=0 

WRITE (6,*) CNST, RGUESS, RHOl 

CONVERGING NEWTON ROOT SOLVER 

412 ZETAE-1. 

ZETEP=0 . 

XKU=XKNXR/RH01 
XKP=-XKU/RH01 
XKU=ALOG10 (XKU) 

XKU1=XKU 

IF (XKU . GT . 1 . ) GOTO 4 1 3 
ZETAE-0 . 

IF ( XKU . LT . - 3 . ) G0T04 1 3 
ZETAE=SIN ( 1 . 1781+ . 3927*XKU) **2 

ZETEP=2 ,*SIN(1.1781+. 3 92 7* XKU) *COS ( 1 . 1781+ . 3927*XKU) 

. * . 3927* . 4343*XKP*10 . ** (-XKU) 

IF (XKU.GE.B1ZE) G0T0413 
ZETAE=EXP (-A1ZE* (B1ZE-XKU) **C1ZE) 

ZETEP=ZETAE*A1ZE*C1ZE* (B1ZE-XKU) ** (C1ZE-1.) /10 . **XKU*XKP* . 4343 

413 CONTINUE 

FUNC=RH01 * (DELZ*ZETAE+CZC) -AZ*CNST 
FNCP=DELZ* ( ZETAE+RHOl * ZETEP ) +CZC 
DELT= (-FUNC) /FNCP 
RH01=RH01+DELT 
NCON=NCON+ 1 

WRITE (6,*) FUNC, FNCP, DELT, RHOl 
WRITE (6,*) CXC, CZC, DELX, DELZ 
IF (ABS (DELT) . LE . ( . 00001 *RGUESS ) ) G0T0414 
IF (NCON.LE.il) G0T0412 

414 CONTINUE 

AERO CALCULATIONS 
CAP= (-AX) *CNST/RH01 
CABP= (-CAP-CXC) /DELX 
C SCALING PARAMETERS 

XKN1=AL0G1 0 (XKNXR/RHOl ) 

VBAR1=AMACH*SQRT (CPR/ (RH01*REN0R) ) 

C AERO MODELS 

CNB1-1. 

IF (XKN1 .LT.B1ZE) CNB1=EXP (-A1ZE* (B1ZE-XKN1) **C1ZE) 

CAB1=1 . 

IF (XKN1 .LT.B2ZE) CAB1=EXP (-A2ZE* (B2ZE-XKN1) **C2ZE) 

CA1 = -CXC -DELX * CAB 1 
CN1=— CZC -DELZ* CNB1 
CD1=CN1 *SINA+CA1 *C0SA 
CDB1=-CD1-CZC*SINA-CXC*C0SA 
CDB1=CDB1 / (DELZ*SINA+DELX*COSA) 

FL0D1= (CN1 / CA1-TANA) / ( 1 . +TANA*CN1 /CA1 ) 

C 

c 

c 

c 

c 

C COMPONENT DERIVED DENSITY USING CA-FLIGHT DER. 

RH02=RGUESS 

NCON=0 
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C CONVERGING NEWTON ROOT SOLVER 

417 XKU =XKNXR / RHO 2 

IF (XKU.LE.O)XKU=. 00001 
XKP=-XKU/RH02 
ZETAE=1 . 

ZETEP=0 . 

XKU=ALOGl 0 (XKU) 

XKU 2= XKU 

IF (XKU . GE . B2 ZE) G0T04 1 8 
ZETAE=EXP (-A2ZE* (B2ZE-XKU) **C2ZE) 

ZETEP=ZETAE*A2ZE*C2ZE* (B2ZE-XKU) ** (C2ZE-1 . ) /10 . **XKU*XKP* .4343 

418 CONTINUE 

FUNC=RH02 * (DELX*ZETAE+CXC) -AX*CNST 
FNCP=DELX* ( ZETAE+RH02 * ZETEP ) +CXC 
DELT= (-FUNC) /FNCP 
RH02=RH02+DELT 

C WRITE (6,*) RH02 , FUNC, FNCP, DELT 

C WRITE (6,*) AMACH, XKNXR, RENOR 

NCON=NCON+l 

IF (ABS (DELT) . LE . ( . 00001*RGUESS) ) G0T0416 
IF (NCON . LE . 1 1 ) G0T04 1 7 
416 CONTINUE 

C 

C AERO CALCULATIONS 

C WRITE (6,*) XKNXR, RH02, AMACH, RENOR, CPR 

CNP= (-AZ) *CNST/RH02 
CNBP= (-CNP-CZC) /DELZ 
C SCALING PARAMETERS 

XKN2=ALOGl 0 (XKNXR/RH02 ) 

C WRITE (6,*) XKN2 

VBAR2=AMACH*SQRT (CPR/ (RH02 *RENOR) ) 

C AERO MODELS 

CAB2=1 . 

IF (XKN2 . LT.B2ZE) CAB2=EXP (-A2ZE* (B2ZE-XKN2 ) **C2ZE) 

CNB2=1 . 

IF (XKN2 .LT.B1ZE) CNB2=EXP (-A1ZE* (B1ZE-XKN2) **C1ZE) 

CA2=-CXC-DELX*CAB2 

CN2=-CZC-DELZ*CNB2 

CD2=CN2 * SINA+CA2 *COSA 

CDB2=-CD2-CZC*SINA-CXC*COSA 

CDB2=CDB2/ (DELZ*SINA+DELX*COSA) 

FLOD2= (CN2/CA2-TANA) / (1 . +TANA*CN2/CA2) 

IF (ALT . GE . AFIT) FLOD=FLOD2 

ACCNP-ALOGIO ( (CNB2*DELZ+CZC) / (-CNST) *RH02*1 . 0E06/9 . 81 ) 

C 

C COMPOSITE DENSITY 

IF (ALT . GT . ARHO) GOTO 4 1 9 
RH0=RH01 
CDB=CDB1 
VBAR=VBAR1 
XKN=XKN1 
PKN=XKNXR/RH01 
GOTO440 
419 RH0=RH02 
CDB=CDB2 
VBAR=VBAR2 
XKN=XKN2 
PKN=XKNXR/RH02 
440 CONTINUE 
C 
C 

REP=RENOR*RHO*SA/XLR 

TPP=.2*TO+.5*TW 

PN=SQRT (REP* (TI/TPP) **OMEG) 

BMMN=XKNXRS / RHO* RSOR* 1 2 . 058/XLR 

VISCPR= (TPR/273 . 1) **1 . 5*6 . 584E-02* .0672/ (TPR+110. 6) 
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VISCPP= (TPP/273 . 1 ) **1.5*6.584E-02*.0672/(TPP+110.6) 
C12=SQRT (TPP/TI ) * (TI + 122 . 1 * 1 0 . * * (-5./TI) ) / 

. (TPP + 122 . 1*10 . ** (-5./TPP) ) 

C13=SQRT (TAS/TI) * (TI + 122 . 1*10 . ** (-5./TI) ) / 

. (TAS+122 . 1*10 . ** (-5 . /TAS) ) 

C21=VISCPR/VISC*TI/TPR 
C22=VISCPP/VISC*TI/TPP 
C23=VISCS/VISC*TI/TAS 
B11=AMACH*SQRT (CPR/REP) 

B12=AMACH*SQRT (Cl 2 /REP) 

B13=AMACH*SQRT (C13/REP) 

B21=AMACH*SQRT (C21/REP) 

B22=AMACH*SQRT (C22/REP) 

B23=AMACH*SQRT (C23/REP) 

B31=AMACH/ SQRT (REP* (TI/TPR) ** (OMEG-1 . ) ) 

B32=AMACH/ SQRT (REP* (TI/TPP) ** (OMEG-1 . ) ) 

B33=AMACH/ SQRT (REP* (TI/TAS) ** (OMEG-1 . ) ) 

C 

C 

C 

C 

C 

C AERO COEFFICIENTS USING DATA BOOK 
C CNDB=-CZC-DELZ*CNBDB 

C CADB=-CZDB- (DELX+CXC-CZDB) *CNBDB 

C CABDB= (-CADB-CXC) /DELX 

C 

C IF (VBAR. LT . . 08) CABDB=-1 . 5285* (VBAR- . 01 ) /DELX 

C IF (VBAR. LT. . 08) CADB=-CXC+1 . 5285* (VBAR-. 01) 

C IF (XKN . LT . -3 . ) CABDB=- . 2 

C IF (XKN . LT . -3 . ) CADB=-CXC 

C CABDB=-1. 5285* (VBAR-. 01) /DELX 

C CADB=-CXC+1 . 5285* (VBAR-. 01) 

C CDDB=CNDB * S I NA+CADB * COSA 

C CDBDB=-CDDB-CZC* SINA-CXC*COSA 

C CDBDB=CDBDB / (DELZ*SINA+DELX*COSA) 

C 

C 

C 

C LOAD OUTPUT 

DAT (30) =CDB 
DAT ( 31 ) =CXELFM 
DAT (32) =CZELFM 
DAT (33) =ALOG10 (PN) 

DAT (34) =CAB1 
DAT (35) =XKN2 
DAT (59) =XKN1 
DAT (60) =XKU1 
DAT (38) =XKU2 
DAT (42) =CAP 
DAT (46) =CA2 
DAT (47) =RHO/R76 
DAT (48) =RHO 
DAT (56) =CAB2 
DAT (57) =CNB2 
DAT (58) =CDB2 
C 

257 DAT (ITIME) =DAT (ITIME) 

DAT (IALT) =DAT ( I ALT) /1000 . 

DAT (25) =HDIST 
DAT (36) =TW 
DAT (37 ) =AMACH 
DAT (39) =CN2 

C IF (RL . GT . 0 . 0 ) DAT (39) =ALOGl 0 (RL) 

DAT (41) =RH01 /RH02 
DAT (4 3) =RHO/R7 6 
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DAT (44) =6 . 5+ABFL/10 . 

DAT (45) =1 . 0+ (ALPH-4 0 . ) /5. 

DAT (53) =CXBFFM 
DAT (54) =CZBFFM 

DAT (55) =SQRT (PI*TW/TIL) / (2. *SRAT) 

DAT (63) =RH01/R76 
DAT (26) =ACCN 
DAT (27) =ACCA 
DAT (28) =FLOD 
DAT (29) =FNOA 
DAT (40) =CNB1 
DAT (50) =CN1/CA1 
DAT (49) =CN2/CA2 
DAT (51) =FL0D1 
DAT (52) =WM76 
C 
C 

253 L=L+1 

C 

C PLOT DAT (IX) , DAT ( IY) 

WRITE (3) DAT (IX) , DAT ( I Y ) 

C IF (DAT (IY) .GT.YMAX) DAT (IY) =YMAX 

C IF (DAT ( IY) . LT . YMIN) DAT (IY) =YMIN 

C IF (DAT (IX) . GT . XMAX) DAT ( IX) =XMAX 

C IF (DAT (IX) . LT . XMIN) DAT (IX) =XMIN 

X= (DAT ( IX) -XMIN) /XSF 
Y= (DAT ( IY) -YMIN) /YSF 
IF (ISYMB.EQ. 1) GOTOIO 
IF (L.EQ. 1) CALL CALPLT (X, Y, 3) 

CALL CALPLT (X,Y, 2) 

G0T015 

10 CALL POINT (X,Y) 

15 CONTINUE 
C 

C WRITE SELECTED DATA TO A FORMATTED OUTPUT TAPE 
C 

IF (JSTOP .EQ. 1) GOTO 200 

WRITE (4,777) DAT ( 1 ) ,DAT(3) ,DAT<23) ,DAT(24) ,DAT(29) 

C C DAT (50), DAT (49), DAT (59), DAT (35) 

C WRITE (4,778) DAT ( 4 ) ,DAT(5) , AZ, AX, DAT (48) , PKN 

C4 WRITE (4, 780) DAT (1) ,DAT(3) ,DAT(2) ,DAT(6) , DAT (15) , DAT (14) , 

C4 * DAT (47 ) , AZ , AX, DAT (48), PKN 
IF (KCNT.GT.l) GOTO 776 

WRITE (6, 668) ALPHA (1) , ALPHA (3) , ALPHA (2) , ALPHA (6) , ALPHA (15) , 

* ALPHA (14) , ALPHA ( 47 ) ,ALPHA(5) ,ALPHA(24) ,ALPHA(23) , 

* ALPHA (48) 

WRITE (6, 669) UNITS (1) , UNITS (3) , UNITS (2) , UNITS (6) , UNITS (15) , 

* UNITS (14) , UNITS (47) , UNITS (5) , UNITS (24 ) , UNITS (2 3) , 

* UNITS (48) 

KCNT=KCNT+1 

776 CONTINUE 

C WRITE (6, 77 9) DAT (1) , DAT ( 3 ) , PKN, DAT (6) , DAT (15) , DAT (14) , 

C * DAT (47), DAT ( 5 ) , AZ , AX , DAT (48) 

668 FORMAT (11 (2X,A10) ) 

669 FORMAT (11 (2X,A10) /) 

777 FORMAT (5 (1X,E12 . 5) ) 

778 FORMAT (IX, 6E12 . 6, 56X) 

779 FORMAT (11E12 . 5) 

C4 780 FORMAT (IX, 11E12. 6) 

C 

C 

IF (L . LT . 2500 ) GOTO200 
C 

c 

820 CONTINUE 
JSTOP=l 
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WRITE (6, 1012) L 
WRITE (3) -8888. , -8888. 

NTAG=NTAG+1 

L=0 

REWIND 1 

IF (ITAG.EQ. 1) G0T05 

NTAG=0 

K=K+1 

CALL NFRAME (XFR, YFR) 

CALL CALPLT (5 . , 3 . , -3) 

GO TO 5 

** END OF PROGRAM, SUCCESSFUL PLOTTING DONE 

260 CONTINUE 

CALL NFRAME (XFR, YFR) 

K=K-1 

WRITE ( 6 , 265) K 

265 FORMAT (1H1, 13, * FRAMES PLOTTED . */*0HAVE A NICE DAY.*) 

CALL CALPLT (0.,0., 999) 

2000 FORMAT (//50X*PLOT NO. *13//) 

1004 FORMAT (/IX, * INDEPENDENT VARIABLE SELECTED *A10, * BETWEEN *F10.3, 
.* AND *F1 0 . 3 ) 

1005 FORMAT (/IX, *DEPENDENT VARIABLE SELECTED *A10, * BETWEEN *F10.3, 

.* AND *F1 0 . 3 ) 

1012 FORMAT (//50X, 16, * POINTS PLOTTED*/) 

1011 FORMAT (/IX, *X-AXIS LENGTH *F10.3,* Y-AXIS LENGTH *F10.3) 

1017 FORMAT (/IX, *NO PLOT GRID OPTION SELECTED*) 

1018 FORMAT (/IX, *PLOT GRID OPTION SELECTED, GRID SPACING 1"*) 

1021 FORMAT (/IX* SEARCH AEROBET FILE BETWEEN *F10.3,* AND *F10.3, 

.* METERS ALTITUDE*) 

STOP 


* SAME VARIABLE ON X- AND Y-AXES 
650 WRITE (6, 655) XAXIS 

655 FORMAT (//1X*PL0TTING *,A10,* AGAINST ITSELF IS NOT ALLOWED.*/) 
GO TO 820 


4009 CONTINUE 
WRITE (6, 4020) 

4020 FORMAT (/IX, *X-AXIS ALPHA UNDEFINED PLOT TERMINATED*/) 

GO TO 820 

4010 CONTINUE 
WRITE (6, 4021) 

4021 FORMAT (/IX, *Y-AXIS ALPHA UNDEFINED PLOT TERMINATED*/) 

GO TO 820 


683 CONTINUE 

WRITE (6, 684) XSF, YSF 

684 FORMAT (//IX, *PLOT INHIBITED-SCALE FACTOR INDETERMINATE XSF 
. *F10 . 3, * YSF *F10 .3/) 

GO TO 820 

386 CONTINUE 
WRITE (6, 387) 

387 FORMAT (/IX, *PLOT INHIBITED-Y1 SCALE FACTOR 0.*/) 

GO TO 820 

* EOF WHILE TRYING TO READ HEADER ON TAP El 
500 WRITE (6, 505) 
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505 FORMAT {lX*E-0-F ENCOUNTERED WHILE TRYING TO READ HEADER ON TAPE1 
+, PROGRAM HALTED.*) 

504 PRINT*, "ERROR" 

STOP 

END 

SUBROUTINE CXCZDB (AL, ABFL, AELE, AZZ, BZZ, CZZ, DZZ, CZP, SR, TWT, KHRO, 

* CXELFM, CZELFM, CXBFFM, CZBFFM) 

PI=4 . *ATAN ( 1 . ) 

AR=AL*PI/180 . 

NDER=0 
NCS=0 
KHRO =4 

C PDIF=SQRT (PI *TWT) / (2 . *SR) 

PDIF=SQRT (PI*. 25) / (2. *9.) 

C 

IF (KHRO.GT. 1) GOTO201 
IF (KHRO.GT. 2) GOTO301 
IF (KHRO.GT. 3) GOTO401 
CX=- .05925-.011+.004 
CZ=-1 . 205- . 004 
CXFM=-1 . 6095 
CZFM=-1 .3725 

C IF (NDER . EQ . 1 ) GOTOl 1 

CXFM=CXFM* (. 27568+ . 02879405*AL- . 00015907143*AL*AL 
. -2 . 733333E-06*AL*AL*AL) 

CZFM=CZFM* ( . 104- . 0038214286*AL+9 . 571429E-04*AL*AL 
. -7 . 5E-0 6*AL*AL*AL) 

CX=CX* ( . 29594402+ . 0 67083253*AL- . 0023369244*AL*AL 
.+3. 58036123E-05*AL*AL*AL-2 . 047015503E-07*AL*AL*AL*AL) 

. + .002* (AL-40. ) 

CZ=CZ* (-.22316013+. 0248 950704*AL+. 00014 3729041*AL*AL) 

. + .02* (AL-40.) 

C IF (NCS .EQ. 1) GOTOll 

CXEL=. 0002- . 0008*AELE- . 00013*AELE*AELE 
. +5 . 6E-04 *AELE 

IF (AELE. LE. 0.0) CXEL= (- . 0026*AELE) - . 00016*AELE*AELE 
IF (KHRO.EQ.l) GOTO501 
201 CX=-. 05270 

CZ=-1 .1538 
CXFM=-1 . 6095 
CZFM=-1 .3725 

CXFM=CXFM* ( . 27568+. 0287 9405*AL- . 00015 907 143*AL*AL 
. -2 . 733333E-06*AL*AL*AL) 

CZFM=CZFM* ( . 104- . 00382 1428 6*AL+9. 57142 9E-04*AL*AL 
. -7 . 5E-06*AL*AL*AL) 

CX=CX* ( ,29594402+.067083253*AL-. 0023369244*AL*AL 
.+3. 58036123E-05*AL*AL*AL-2 . 047015503E-07*AL*AL*AL*AL) 

. + .002* (AL-40. ) 

CZ=CZ* (-.22316013+. 02 4 8 950704 *AL+. 00014372 9041 *AL*AL) 

. + .02* (AL-40.) 

C IF (NCS . EQ . 1 ) GOTO 11 

CXEL= . 0002- . 0008*AELE- . 00013*AELE*AELE 
. +5 . 6E-04 *AELE 

IF (AELE . LE . 0 . 0) CXEL= (- . 0026*AELE) - . 00016*AELE*AELE 
IF (KHRO. EQ . 2 ) GOTO501 
301 CX=2 . 36E-4*AL*AL-1 . 8534E-2 *AL+ . 4 1 97 6 
CX=-CX 

CZ=- . 04 34 5*AL+ .6230 
CXFM=-1 . 58 
CZFM — 1.5 

CXFM=CXFM* ( .27568+. 02 8794 05*AL-. 0001 5907143*AL*AL 
-2 . 733333E-06*AL*AL*AL) 

CZFM=CZFM* ( . 104- . 003821 4 286*AL+9 . 57142 9E-04*AL*AL 
-7 . 5E-06*AL*AL*AL) 

CXEL= . 0002- . 0008*AELE- . 00013*AELE*AELE 
+5. 6E-04*AELE 


IF (AELE . LE . 0 . 0 ) CXEL= (- . 0026*AELE) - . 0001 6*AELE*AELE 
IF (KHRO.EQ. 3) GOTO501 
401 CX— .056 
CZ=-1 . 115 

C CXFM=CXFM* ( .27 568+. 0287 94 05*AL-. 00015907 143*AL*AL 

C . -2 . 733333E-06*AL*AL*AL) 

C CZFM=CZFM* ( . 104- . 003821428 6*AL+9. 571 42 9E-04*AL*AL 

C . -7 . 5E-06*AL*AL*AL) 

C KTLFM 

CXFM=-1 . 6095 
CZFM — 1.4567 

c **************** DATA BOOK FMF AT >600000 FT 0 DEG SIDESLIP, AOA 0-60 DEG*** 
CZFM = 1 . 58739E-3 + ( 9 . 18422E-3*AL) + ( 9 . 661 97E-4*AL*AL) + 

. (-7.1 6528E-6*AL*AL*AL) 

CZFM = -CZFM 

CXFM = 7 . 51105E-1 + (1 . 64864E-2*AL) + (5 . 92205E-4 *AL*AL) + 

. (-1 . 17117E-5*AL*AL*AL) 

CXFM = -CXFM 

C ******************************************************************** 

CX=2 . 36E-4*AL*AL-1 . 8534E-2*AL+ .416761 
CX=-CX 

CZ=- . 04345*AL+ .6230 

CXEL=. 0002- . 0008*AELE- . 0001 3*AELE* AELE 
. +5 . 6E-04 *AELE 

C THIS IS AELE-CXEL FOR NEG AELE BASED UPON N/A STUDY AUG87 
IF (AELE. LE. 0 . ) CXEL=- . 0009*AELE- . 00005*AELE*AELE 
IF (KHRO.EQ. 4) GOTO501 
501 CONTINUE 

C BASIC COEFF. VALUES (@ 40 DEG. ) 

C CX=-1 . 55*VBAR- . 0515 

C THE FOLLOWING CX IS THE AS-RECEIVED, *APRIL86*VALUE 
C CX=- .05925-.0011+.004 

C THE FOLLOWING IS THE FAD-26 VALUE OF CX 
C CX=-. 05270 

C THIS CX IS THE TEN FLIGHT L/D, ALPHA=40 STUDY VALUE. 

C CX=- . 056 

C THE FOLLOWING CZ IS THE AS-RECEIVED, *APRIL86*VALUE 

C CZ — 1 . 205- . 004 

C THE FOLLOWING CZ IS THE FAD-26 VALUE 
C CZ — 1.1538 

C THE FOLLOWING CZ IS BASED ON A TEN FLIGHT L/D, ALPHA =40 STUDY 
C CZ=-1 .115 

C THIS IS THE PRE-OP DATA BOOK CXFM VALUE (AS-RECEIVED*APRIL86* ) 

C CXFM=-1 . 6095 

C THIS CXFM IS BASED ON THE TEN FLIGHT L/D, ALPHA=40 STUDY. 

C87 CXFM=-1 . 57 

C THIS IS THE CXFM OF THE SPLIT DIFF 
C CXFM — 1.58 

C THIS IS THE CXFM BASED UPON THE N/A STUDY, AUG87 

C67 CXFM=-1 . 50 

C CZFM=-1 . 7 5 

C THIS CZFM IS THE PRE-OP DATA BOOK VALUE (AS RECEIVED*APRIL86* ) 

C CZFM=-1 .4567 

C THIS IS THE CZFM BASED ON THE TEN FLIGHT L/D, ALPHA =40 STUDY. 

C CZFM=-1 . 55 

C THIS IS THE CZFM BASED ON THE SPLIT DIFF 
C CZFM=-1 . 5 

C CZFM=-3.934*SIN(AR) * (SIN (AR) +PDIF) 

C 

C IF (NDER.EQ. 1) GOTOll 

C ALPHA DERIVATIVES 

C CXFM=CXFM* ( .27568+. 0287 9405*AL-.00015907143*AL*AL 

C . -2 . 733333E-06*AL*AL*AL) 

C CZFM=CZFM* ( . 1 04-. 00382 14286*AL+9. 571429E-04*AL*AL 

C . -7 . 5E-06*AL*AL*AL) 

C CX=CX* ( .29594402+.067083253*AL-. 0023369244*AL*AL 
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.+3. 58036123E-05*AL*AL*AL-2 . 047015503E-07*AL*AL*AL*AL) 

. + .002* (AL-40. ) 

THIS IS THE CAC UPDATE BASED ON FAD-26 AND CAO=.056 (APRIL87) 

CX=2 . 36E-4*AL*AL-1 . 8534E-2*AL+ .41976 
THIS IS THE CX ALPHA BASED UPON THE N/A STUDY AUG 87 
C67 CX=2 . 36E-4*AL*AL-1 . 8534E-2*AL+ .416761 

c cx =— CX 

C CZ=CZ* (-.22316013+. 0248950704*AL+.000143729041*AL*AL) 

C . + . 02* (AL-40 . ) 

C THIS IS THE FAD-L/D CZ VALUE (APRIL87 ) 

C CZ; — .04345 * AL+ .6230 

C 

C 

C IF (NCS.EQ.l) GOTO 11 

C CONTROL SURFACE DERIVATIVES 

C CXEL=- . 00 62311 9*AELE-9 . 7 147 61 9E-05*AELE*AELE 

C CXEL=-. 001474 354 34*AELE-1 . 3288 6554 6E-04*AELE*AELE 

C .+8 . 698039216E-07*AELE*AELE*AELE 

C CXEL= . 0002- . 0008*AELE- . 0001 3*AELE*AELE 

C .+5. 6E-04*AELE 

C IF (AELE. LE. 0 . 0) CXEL= (-. 002 6*AELE) -. 0001 6*AELE*AELE 

C THIS IS AELE-CXEL FOR NEG AELE BASED UPON N/A STUDY AUG 8 7 
C67 IF (AELE . LE . 0 . ) CXEL=- . 000 9* AELE- . 00005*AELE*AELE 

CZEL=- . 0057382024*AELE-1 . 1632619E-04*AELE*AELE 
CXBF=-. 0001 65 910 9-. 000362 6653* ABFL 
. -2. 285779 5E-05 * ABFL*ABFL 
. +1.024339905E-07 * ABFL*ABFL*ABFL 
AER=AELE*PI/180 . 

ABR=ABFL*PI/180 . 

AR=AL*PI / 180. 

G=AER+AR 

CFG=SIN (G) *COS (G) 

CFA=SIN (AR) *COS (AR) 

C CPG=SIN (G) *SIN (G) * (1 .+G*2./PI) 

C CPA-SIN (AR) *SIN (AR) * (1 .+AR*2 . /PI) 

CPG=SIN (G) * (SIN (G) +PDIF) 

CPA=SIN (AR) * (SIN (AR) +PDIF) 

CXELFM=-413. 14/2690. * (COS (AER) * (CFG-CFA) +SIN (AER) * (CPG-CPA) ) 
CZELFM=-413 . 14/2690 . * (COS (AER) * (CPG-CPA) -SIN (AER) * (CFG-CFA) ) 
G=ABR+AR 

CFG=SIN (G) *COS (G) 

C CPG=SIN (G) *SIN (G) * (l.+G*2./PI) 

CPG=SIN (G) * (SIN (G) +PDIF) 

CXBFFM=-135. 75/2690.* (COS (ABR) * (CFG-CFA) +SIN (ABR) * (CPG-CPA) ) 
CZBFFM=-135 .75/2690 . * (COS (ABR) * (CPG-CPA) -SIN (ABR) * (CFG-CFA) ) 
CZBF=. 000 108 6855-. 0020996556*ABFL 
. -3 . 13694583E-05 * ABFL*ABFL 
.+1 . 353946759E-06 * ABFL* ABFL* ABFL 
C CXEL=0 . 

C CXBF=0 . 

C CZEL=0 . 

C CZBF=0. 

C CXBFFM=0 . 

C CXELFM=0 . 

C CZBFFM=0 . 

C CZELFM=0 . 

CX=CX+CXBF +CXEL 
CZ=CZ+CZBF+CZEL 
C CXFM=CXFM+CXBFFM+CXELFM 

CXFM=CXFM 

C CZFM=CZFM+CZBFFM+CZELFM 

CZFM=CZFM 
C 

11 CONTINUE 

C TRANSITION BRIDGING FORMULA 
AZZ=CZ 


BZZ=CZFM-CZ 
CZZ=CX 
DZZ=CXFM-CX 
C CZP=CZBFFM+CZFM 

RETURN 
END 

SUBROUTINE BETA (UI, RI, WM, TI , TW, BE) 

BE=SQRT (8314 . 34*TW/WM) /UI+1 . 

BE=5.0016E-07*1 . / SQRT (BE*TI *RI *RI/ (WM*WM*WM) ) 

RETURN 

END 

SUBROUTINE DATM62 (RS, HH, P, T, A) 

DIMENSION ANS ( 4 ) 

HO=HH 

HOO=HH-1000 . 

N-0 

DELT=HO-HOO 

H-HOO 

CALL AT62 (H, ANS) 

R=ANS ( 1 ) 

FX=RS-R 

H=HO 

1 FOLD=FX 

CALL AT62 (H, ANS ) 

R=ANS ( 1 ) 

FX=RS-R 

DELT= (-FX) / ( (FX-FOLD) /DELT) 

H=H+DELT 

N=N+1 

IF(N.GE.ll) G0T02 

IF (ABS (DELT) .GT. ( . 0001*HH) ) GOTOl 

2 P=ANS (2 ) 

T=ANS (3) 

A=ANS (4) 

RETURN 

END 
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Table 1. STS HiRAP Missions 


The number used in this report to identify each mission is given with 
instrument, orbiter name, and entry date 


Mission 

System data 
file number 

Instrument 

Orbiter 

Entry date 

b 1 b-06 

STS-07 

STS-08 

STS-09 

STS-41B 

STS-41C 

STS-51B 

STS-51F 

STS-61A 

STS-61C 

6 

7 

8 
9 

1 11 
13 
24 
26 
30 
32 

S/N 001 
S/N 001 
S/N 001 
S/N 002 
S/N 001 
S/N 001 
S/N 001 
S/N 002 
S/N 002 
S/N 001 

Challenger 

Challenger 

Challenger 

Columbia 

Challenger 

Challenger 

Challenger 

Challenger 

Challenger 

Columbia 

4/9/83 1 

6/24/83 
9/5/83 
12/8/83 
2/11/84 
4/13/84 
5/6/85 
8/6/85 
11/6/85 
1/18/86 


Table 2 . HiRAP Ground Calibration Scale Factors 


Instrument and flight 

Scale factor, V// 47 , for acceleration along — 

X-axis 

V -axis 



Z- axis 

S/N 001 before recalibration 
(STS-06, 07, 08, 41 B, 4 1C, and 5 IB) 

-1.247237 x 10~ 3 

1.253821 x 10 ~ 3 

1.26810 x 10~ 3 ! 

S/N 001 after recalibration 
(STS-61C) 

-1.24720 x 10 ~ 3 

1.269482 x Hr 3 

-1.256565 x 10~ 3 

S/N 002 before recalibration 
(STS-09) 

-1.24857 x 10 ~ 3 

1.269482 x 10 -3 

■ -1.256565 x 10- 3 

S/N 002 after recalibration 
(STS-51F, 61A) 

-1.250035 x 10“ 3 
-(1.283124 x 10- 6 )F2 
+(0.1437924 x 10~ 6 )V^ 

J. 

1.271533 x 10 -3 
-(1.344372 x 10- 6 )Vt- 
+(0.04102193 x 10 -3 )17/ 

-1.253671 x 10 -3 
-(2.584656 x 10~ 6 )F r 
+(1.044413 x lO -6 )^ 

-(0.1370558 x 10 ~ 6 )V^ 
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Figure 3. Concluded. 
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(c) Y-axis acceleration counts. 


48700 



,1 i|i * s ! 


J ; | 

iiiL.iijyiL. 

JJII 

Jyj|[ 

rnr TTniirt 

Milff 


ii i j j ; 

j ' *1 

| |li!j; 

S : ; ! 

« • 

t 

9 

pi [ i|i 

1 1 • « : : 


( * *t 

• , . i * 


i t 

• i ♦ . • ; 

I • , • * 

t 

# 5 : | ! }' 

• * * * * 

t 

fc: 1 ■ j: 

i i_J il j l 1 i 1 

•i i 

k : ini 


GMT, sec 

(d) X-, Y-, and Z-axis temperatures 


Figure 4. Concluded. 
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(a) X-axis acceleration counts. 



(b) Z-axis acceleration counts. 

Figure 5. Acceleration counts and sensor temperature versus time for STS 
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Figure 5. Concluded. 
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Figure 6. Continued. 
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(f) X-, Y-, and Z-axis fine temperature counts. 
Figure 6. Continued. 
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(b) Z-axis acceleration counts. 

Figure 7. Acceleration counts and sensor temperature versus time for STS-41B 





Acceleration, counts 










Sensor temperature, °F Acceleration, counts 


18000 


16000 — 



46680 


46880 



GMT, sec 


(c) F-axis acceleration counts. 



BO 46320 


47160 47400 47640 

GMT, sec 


47880 


(d) X-, Y-, and Z-axis temperatures. 
Figure 8. Concluded. 
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Figure 9. Acceleration counts and sensor temperature versus time for STS-51B. 
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(a) X-axis acceleration counts. 



(b) Z-axis acceleration counts. 

Figure 10. Acceleration counts and sensor temperature versus time for STS-51F 
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(e) F-axis acceleration counts. 
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(d) X - , F-, and Z-axis temperatures. 
Figure 11. Concluded. 
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(a) Altitude versus time. 


Figure 13. Time and altitude histories of orbiter state vector subset data for STS-Od. 
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(b) Angle of attack versus altitude 



(c) Angle of attack versus time. 


Figure 13. Continued. 
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(a) Altitude versus time. 

Figure 14. Time and altitude histories of orbiter state vector data subset for STS-07. 


195 




















Altitude, m 


(d) Body flap deflection versus altitude 
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(e) Body flap deflection versus time 
Figure 15. Continued. 
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(d) Body flap deflection versus altitude 
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(e) Body flap deflection versus time 
Figure 16. Continued. 
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(f) Elevon deflection versus altitude 
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(g) Elevon deflection versus time. 
Figure 16 . Concluded. 
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(d) Body flap deflection versus altitude 
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(e) Body flap deflection versus time 
Figure 17. Continued. 
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(b) Angle of attack versus altitude. 
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(e) Angle of attack versus time. 
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Figure 18 . Continued. 
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(d) Body flap deflection versus altitude 
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(e) Body flap deflection versus time 
Figure 18. Continued. 
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(d) Body flap deflection versus altitude 
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(e) Body flap deflection versus tune 
Figure 19- Continued. 
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(a) Altitude versus time. 


Figure 20. Time and altitude histories of orbiter state vector data subset for STS-51F 
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(b) Angle of attack versus altitude. 



Figure 20. Continued. 
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(fl) Body flap deflection versus altitude 
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( e ) Body flap deflection versus time 
Figure 20. Continued. 
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(f) Elevon deflection versus altitude. 
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(g) Elevon deflection versus time. 
Figure 20. Concluded. 
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(b) Angle of attack versus altitude. 
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(c) Angle of attack versus time. 
Figure 21. Continued. 
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(d) Body flap deflection versus altitude 
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(e) Body flap deflection versus time 
Figure 21. Concluded. 
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(h) Angle of attack versus altitude. 
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(°) An g!e of attack versus time. 


Figure 22. Continued. 



Altitude, m 


(d) Body flap deflection versus altitude. 
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(e) Body flap deflection versus time 
Figure 22. Continued. 





(a) X-axis acceleration and time-line events. 

data for STS-61C with time-line events labeled. 


Figure 23. Section of acceleration 
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Figure 23. Continued. 
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(c) Z - axis acceleration and time-line events. 
Figure 23. Concluded. 
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(a) A -axis acceleration. 
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(b) F-axis acceleration. 


Figure 24. Section of acceleration data for STS-61C with RCS thruster activitv 
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(c) Z-axis acceleration. 
Figure 24. Concluded. 
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(a) A'-axis acceleration. 
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(b) V -axis acceleration. 
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(c) Z-axis acceleration. 

Figure 25. Section of acceleration data for STS-61C without RCS thruster activity. 
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(b) Z- axis acceleration. 

Figure 26. Acceleration versus time (no RCS signal) for STS-06. 
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i) X-axis acceleration. 
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(b) Z-axis acceleration. 


Figure 27. Acceleration versus time (no RCS signal) for STS-07. 
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Figure 31. Acceleration versus 


(b) Z-axis acceleration. 

on versus time (no RCS signal) for STS-41C. 
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(c) F-axis acceleration. 
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Figure 35. Concluded. 
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i) X-axis acceleration. 



(b) Z-axis acceleration. 

Figure 39. Acceleration versus time (after data gap filling) for STS-09. 
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(a) X-axis acceleration. 
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(b) Z-axis acceleration. 


41. Acceleration versus time (after data gap filling) for STS-41C. 
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(c) K-axis acceleration. 
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Figure 41. Concluded. 
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(c) V'-axis acceleration. 
Figure 42. Concluded. 
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(a) X-axis acceleration. 



(b) Z-axis acceleration. 

Figure 46. One-second averaged aerodynamic acceleration data versus time for STS-06. 
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Figure 46. Concluded. 




Acceleration, jug 


2000 

0 

- 2000 

“4000 


-6000 
-8000 
- t 0000 
-12000 — 

- 1 4000 — 

- 16000 

47700 


47900 


48300 48500 48700 

GMT, sec 


48900 


(c) K-axis acceleration. 
Figure 47. Concluded. 
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(c) Y-axis acceleration. 
Figure 48. Concluded. 
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(a) X-axis acceleration. 



(b) Z - axis acceleration. 

Figure 49. One-second averaged aerodynamic acceleration data versus time for STS-09 
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(a) X-axis acceleration. 



(b) Z-axis acceleration. 

Figure 50. One-second averaged aerodynamic acceleration data versus time for STS-41B. 
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(a) X-axis acceleration. 



(b) Z-axis acceleration. 

Figure 51. One-second averaged aerodynamic acceleration data versus time for STS-41C 




(c) Y- axis acceleration. 


Figure 51. Concluded. 
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(a) X-axis acceleration. 



(b) Z-axis acceleration. 

Figure 52. One-second averaged aerodynamic acceleration data versus time for STS-51B 
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(c) V’-axis acceleration. 
Figure 52. Concluded. 
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(a) X-axis acceleration. 



(b) Z-axis acceleration. 

Figure 53. One-second averaged aerodynamic acceleration data versus time for STS-51F. 
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(c) K-axis acceleration. 
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Figure 53. Concluded. 





Figure 54. Concluded. 
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(a) X-axis acceleration. 
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(b) Z-axis acceleration. 

Figure 55. One-second averaged aerodynamic acceleration data versus time tor STS-61C 




(c) Y - axis acceleration. 


Figure 55. Concluded. 
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Figure 60. Density analysis results for STS-06. 
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(a) Profile of ratio of calculated normal component of density to calculated axial component of density. 
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(b) Profile of calculated density normalized to 1976 U.S. Standard Atmosphere (ref. 1) model profile. 

Figure 61. Density analysis results for STS-07. 
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(a) Profile of ratio of calculated normal component of density to calculated axial component of density. 
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(b) Profile of calculated density normalised to 1976 U.S. Standard Atmosphere (ref. 1) model profile 

Figure 62. Density analysis results for STS-08. 
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(a) Profile of ratio of calculated normal component of density to calculated axial component of density 



(b) Profile of calculated density normalized to 1976 U.S. Standard Atmosphere (ref. 1) model profile 

Figure 63. Density analysis results for STS-09. 
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Figure 64. Density analysis results for STS-41B. 
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a) Profile of ratio of calculated oormal component of density to calculated axial component of density. 
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(b) Profile of calculated density normalized to 1976 U.S. Standard Atmosphere (ref. 1) model profile 

Figure 65. Density analysis results for STS-41C 
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(b) Profile of calculated density normalised to 1976 U.S. Standard Atmos, 

Figure 66. Density analysis results for STS-51B 


.S. Standard Atmosphere (ref. 1) model profile. 






Altitude, km 


(a) Profile of ratio of calculated normal component of density to calculated axial component of density. 
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(b) Profile of calculated density normalized to 1976 U.S. Standard Atmosphere (ref. 1) model profile. 

Figure 69. Density analysis results for STS-61C. 
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a) Profile of ratio of calculated normal component of density to calculated axial component of density. 
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(b) Calculated density normalized to 1976 U.S. Standard Atmosphere (ref. 1) model estimate 
Figure 70. Density analysis results for STS-61A simulating correction of -1° misalignment. 
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(a) Profile of ratio of calculated normal component of density to calc, dated aerial con, pone, It of density 
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(b) 1976 U.S. Standard Atmosphere (ref. 1 ) profile of molecular weight mid alternate profile of molecular weight 
used to generate results. 

Figure 72. Density analysis results for STS-61A with alternate molecular weight profile. 
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